gcc/testsuite/gfortran.dg/assumed_type_14.f90

   1 ! { dg-do compile }
   2 ! PR fortran/104573 - ICE in resolve_structure_cons
   3 ! Contributed by G.Steinmetz
   4 ! Contributed by M.Morin
   5
   6 program p
   7   type t
   8   end type
   9   type(*), parameter :: x = t() ! { dg-error "Assumed type of variable" }
  10   print *, x
  11 end
  12
  13 subroutine s
  14   type t
  15      integer :: a
  16   end type
  17   character(3), parameter :: x = t(2) ! { dg-error "Cannot convert" }
  18   character(3), parameter :: y = x    ! { dg-error "Unclassifiable statement" }
  19   print *, y
  20 end
  21
  22 ! { dg-prune-output "Cannot convert" }