gcc/testsuite/gfortran.dg/pr88138.f90


1
2
3
4
5
6
7
8
9

! { dg-do compile }
program p
   type t
      character :: c = 'c'
   end type
   type(t), parameter :: x  = 1.e1  ! { dg-error "Incompatible initialization between a" }
   print *, 'a' // x%c
end
! { dg-prune-output "has no IMPLICIT type" }