URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [comma_format_extension_4.f] - Rev 154
Compare with Previous | Blame | View Log
! PR fortran/13257 ! Note the missing , before i1 in the format. ! { dg-do run } ! { dg-options "" } character*6 c write (c,1001) 1 if (c .ne. ' 1 ') call abort 1001 format (' ',i4' ') end