gcc/testsuite/gfortran.dg/pr78571.f90


1
2
3
4
5
6
7
8
9
10

! { dg-do compile }
! { dg-options "-std=gnu" }
! PR fortran/78571
program p
   type t
      character :: c
   end type
   character :: x = t('a') ! { dg-error "convert TYPE" }
   data x /'b'/
end