blob: cb0e7c04d0e50164c2d81364711d954a68b186e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { dg-do compile }
!
! PR 50517: gfortran must detect that actual argument type is different from dummy argument type (r178939)
!
! Contributed by Vittorio Zecca <zeccav@gmail.com>
program main
type t
integer g
end type
type u
integer g
end type
type(u), external :: ufunc
call sub(ufunc) ! { dg-error "Type mismatch in function result" }
contains
subroutine sub(tfunc)
type(t), external :: tfunc
end subroutine
end program
|