gcc/testsuite/gfortran.dg/deferred_character_16.f90

   1 ! { dg-do run }
   2 ! PR70592 dynamically-allocated character array
   3 ! Contributed by Peter Knowles <KnowlesPJ@Cardiff.ac.uk>
   4 !
   5 PROGRAM main
   6  character(len=7) :: res
   7  CHARACTER(len=:), DIMENSION(:), POINTER :: cp
   8  INTEGER :: i
   9  ALLOCATE(CHARACTER(len=1) :: cp(1:6))
  10  if (SIZE(cp) /= 6 .or. LBOUND(cp,1) /= 1 .or. UBOUND(cp,1) /= 6) call abort()
  11  cp(1)='1'
  12  cp(2)='2'
  13  cp(3)='3'
  14  cp(4)='4'
  15  cp(5)='5'
  16  cp(6)='6'
  17  write (res, *) cp
  18  if (res /= ' 123456') call abort()
  19 END PROGRAM main