36 lines
751 B
Fortran
36 lines
751 B
Fortran
! { dg-do compile }
|
|
! Tests patch for problem that was found whilst investigating
|
|
! PR24158. The call to foo would cause an ICE because the
|
|
! actual argument was of a type that was not defined. The USE
|
|
! GLOBAL was commented out, following the fix for PR29364.
|
|
!
|
|
! Contributed by Paul Thomas <pault@gcc.gnu.org>
|
|
!
|
|
module global
|
|
type :: t2
|
|
type(t3), pointer :: d ! { dg-error "has not been declared" }
|
|
end type t2
|
|
end module global
|
|
|
|
program snafu
|
|
! use global
|
|
implicit type (t3) (z)
|
|
|
|
call foo (zin) ! { dg-error "defined|Type mismatch" }
|
|
|
|
contains
|
|
|
|
subroutine foo (z)
|
|
|
|
type :: t3
|
|
integer :: i
|
|
end type t3
|
|
|
|
type(t3) :: z
|
|
z%i = 1
|
|
|
|
end subroutine foo
|
|
end program snafu
|
|
|
|
! { dg-final { cleanup-modules "global" } }
|