gcc/testsuite/gfortran.dg/array_constructor_type_6.f03

   1 ! { dg-do run }
   2 ! { dg-options "-fbounds-check" }
   3 !
   4 ! PR fortran/27997
   5 !
   6 ! Array constructor with typespec.
   7 !
   8 program test
   9   character(15) :: a(3)
  10   character(10), volatile :: b(3)
  11   b(1) = 'Takata'
  12   b(2) = 'Tanaka'
  13   b(3) = 'Hayashi'
  14
  15   a =  (/ character(len=7) :: trim(b(1)), trim(b(2)), trim(b(3)) /)
  16   if (a(1) /= 'Takata' .or. a(2) /= 'Tanaka' .or. a(3) /= 'Hayashi') then
  17     call abort ()
  18   end if
  19
  20   a =  (/ character(len=2) :: trim(b(1)), trim(b(2)), trim(b(3)) /)
  21   if (a(1) /= 'Ta' .or. a(2) /= 'Ta' .or. a(3) /= 'Ha') then
  22     call abort ()
  23   end if
  24
  25   a =  (/ character(len=8) :: trim(b(1)), trim(b(2)), trim(b(3)) /)
  26   if (a(1) /= 'Takata' .or. a(2) /= 'Tanaka' .or. a(3) /= 'Hayashi') then
  27     call abort ()
  28   end if
  29
  30 end program test