13 lines
428 B
Fortran
13 lines
428 B
Fortran
! { dg-do compile }
|
|
! PR 13575 -- we used to not see that c0 has no type, and then ICE later
|
|
module AHFinder_dat
|
|
implicit none
|
|
save c0 ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }
|
|
end module AHFinder_dat
|
|
! PR 15978 -- we used to not see that aaa has no type, and then ICE later
|
|
implicit none
|
|
common/rommel/aaa ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }
|
|
end
|
|
|
|
! { dg-final { cleanup-modules "AHFinder_dat" } }
|