gcc/testsuite/gfortran.dg/parameter_array_init_5.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/41515
   4 ! Contributed by ros@rzg.mpg.de.
   5 !
   6 ! Before, the "parm' string array was never initialized.
   7 !
   8 Module BUG3
   9 contains
  10     Subroutine SR
  11     character(3)   :: parm(5)
  12     character(20)  :: str
  13     parameter(parm=(/'xo ','yo ','ag ','xr ','yr '/))
  14
  15     str =    'XXXXXXXXXXXXXXXXXXXX'
  16     if(str /='XXXXXXXXXXXXXXXXXXXX') call abort()
  17     write(str,*) parm
  18     if(str /= ' xo yo ag xr yr') call abort()
  19     end subroutine SR
  20 end Module BUG3
  21 !
  22 program TEST
  23     use bug3
  24     call sr
  25 end program TEST
  26 ! { dg-final { cleanup-modules "bug3" } }