gcc/testsuite/gfortran.dg/pr67802.f90

   1 ! { dg-do compile }
   2 ! PR fortran/67802
   3 ! Original code contribute by gerhard.steinmetz.fortran at t-online.de
   4 program p
   5    character(1.) :: c1 = ' '      ! { dg-error "INTEGER expression expected" }
   6    character(1d1) :: c2 = ' '     ! { dg-error "INTEGER expression expected" }
   7    character((0.,1.)) :: c3 = ' ' ! { dg-error "INTEGER expression expected" }
   8    character(.true.) :: c4 = ' '  ! { dg-error "INTEGER expression expected" }
   9 end program p