gcc/testsuite/gfortran.dg/function_kinds_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34254
   4 !
   5 ! The character-kind parameter was not accepted.
   6 !
   7 module m
   8   integer, parameter :: char_t = kind('a')
   9 end module m
  10
  11 character(1,char_t) function test1()
  12   use m
  13   test1 = 'A'
  14 end function test1
  15
  16 character(len=1,kind=char_t) function test2()
  17   use m
  18   test2 = 'A'
  19 end function test2
  20
  21 character(kind=char_t,len=1) function test3()
  22   use m
  23   test3 = 'A'
  24 end function test3
  25
  26 character(1,kind=char_t) function test4()
  27   use m
  28   test4 = 'A'
  29 end function test4
  30
  31 ! { dg-final { cleanup-modules "m" } }