URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_cache_1.f] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run } ! pr40662 segfaults when specific format is invoked twice. ! pr40330 incorrect io. ! test case derived from pr40662, <jvdelisle@gcc.gnu.org> program astap character(40) teststring arlxca = 0.0 open(10, status="scratch") write(10,40) arlxca write(10,40) arlxca 40 format(t4,"arlxca = ",1pg13.6,t27,"arlxcc = ",g13.6,t53, . "atmpca = ",g13.6,t79,"atmpcc = ",g13.6,t105, . "backup = ",g13.6,/, . t4,"csgfac = ",g13.6,t27,"csgmax = ",g13.6,t53, . "csgmin = ",g13.6,t79,"drlxca = ",g13.6,t105, . "drlxcc = ",g13.6,/, . t4,"dtimeh = ",g13.6,t27,"dtimei = ",g13.6,t53, . "dtimel = ",g13.6,t79,"dtimeu = ",g13.6,t105, . "dtmpca = ",g13.6,/, . t4,"dtmpcc = ",g13.6,t27,"ebalna = ",g13.6,t53, . "ebalnc = ",g13.6,t79,"ebalsa = ",g13.6,t105, . "ebalsc = ",g13.6) rewind 10 rewind 10 teststring = "" read(10,'(a)') teststring if (teststring.ne." arlxca = 0.00000 arlxcc = ")call abort teststring = "" read(10,'(a)') teststring if (teststring.ne." arlxca = 0.00000 arlxcc = ")call abort end program astap
Go to most recent revision | Compare with Previous | Blame | View Log