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
9end
10