gcc/testsuite/gfortran.dg/pr103779.f90

   1 ! { dg-do compile }
   2 ! PR fortran/69636
   3 ! PR fortran/103779
   4 ! Contributed by G.Steinmetz
   5
   6 character(1,) function f() ! { dg-error "Expected initialization expression" }
   7   f = 'a'
   8 end
   9
  10 character(1,kind=) function g() ! { dg-error "Expected initialization expression" }
  11   g = 'a'
  12 end
  13
  14 character(1,n) function h() ! { dg-error "has not been declared" }
  15   h = 'a'
  16 end
  17
  18 ! { dg-prune-output "Bad kind expression" }