Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr45308.f03 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900 (2017-10-27)
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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