! { dg-do compile } | |
! PR fortran/104573 - ICE in resolve_structure_cons | |
! Contributed by G.Steinmetz | |
! Contributed by M.Morin | |
program p | |
type t | |
end type | |
type(*), parameter :: x = t() ! { dg-error "Assumed type of variable" } | |
print *, x | |
end | |
subroutine s | |
type t | |
integer :: a | |
end type | |
character(3), parameter :: x = t(2) ! { dg-error "Cannot convert" } | |
character(3), parameter :: y = x ! { dg-error "Unclassifiable statement" } | |
print *, y | |
end | |
! { dg-prune-output "Cannot convert" } |