gcc/testsuite/gfortran.dg/pr45308.f03

   1 ! PR fortran/45308
   2 ! { dg-do run }
   3  character(len=36) :: date, time
   4  date = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
   5  time = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
   6  call date_and_time (date, time)
   7  if (index (date, 'a') /= 0 .or. index (time, 'a') /= 0) &
   8    call abort
   9 end