blob: 5ab4e7cec8e638f35698f2d90103cb9b5221afc5 (
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/rank mismatch in function result" }
contains
subroutine sub(tfunc)
type(t), external :: tfunc
end subroutine
end program
|
