gcc/testsuite/gfortran.dg/pr65429.f90

   1 ! { dg-do run }
   2 ! PR fortran/65429
   3 program foo
   4
   5    implicit none
   6
   7    character(*), parameter :: s(*) = [ character(5) :: 'abcde', 'fghij' ]
   8    character(*), parameter :: t(*) = [ character(31) :: ]
   9    character(*), parameter :: u(*) = [ 'qwerty', 'asdfgh', 'zxcvbn']
  10    character(*), parameter :: v(*) = ['','']
  11
  12    if ((size(s) /= 2).or.(len(s)/=5)) call abort
  13    if ((size(t) /= 0).or.(len(t)/=31)) call abort
  14    if ((size(u) /= 3).or.(len(u)/=6)) call abort
  15    if ((size(v) /= 2).or.(len(v)/=0)) call abort
  16    if ((s(1)/='abcde').or.(s(2)/='fghij')) call abort
  17    if ((u(1)/='qwerty').or.(u(2)/='asdfgh').or.(u(3)/='zxcvbn')) call abort
  18
  19 end program foo