Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

! PR 13575 -- we used to not see that c0 has no type, and then ICE later

! PR 13575 -- we used to not see that c0 has no type, and then ICE later

module AHFinder_dat

module AHFinder_dat

implicit none

implicit none

save c0 ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }

save c0 ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }

end module AHFinder_dat

end module AHFinder_dat

! PR 15978 -- we used to not see that aaa has no type, and then ICE later

! PR 15978 -- we used to not see that aaa has no type, and then ICE later

implicit none

implicit none

common/rommel/aaa ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }

common/rommel/aaa ! { dg-error "no IMPLICIT type" "no IMPLICIT type" }

end

end

! { dg-final { cleanup-modules "AHFinder_dat" } }

! { dg-final { cleanup-modules "AHFinder_dat" } }