2 ! pr40662 segfaults when specific format is invoked twice.
3 ! pr40330 incorrect io.
4 ! test case derived from pr40662, <jvdelisle@gcc.gnu.org>
6 character(40) teststring
8 open(10, status="scratch")
11 40 format(t4,"arlxca = ",1pg13.6,t27,"arlxcc = ",g13.6,t53,
12 . "atmpca = ",g13.6,t79,"atmpcc = ",g13.6,t105,
13 . "backup = ",g13.6,/,
14 . t4,"csgfac = ",g13.6,t27,"csgmax = ",g13.6,t53,
15 . "csgmin = ",g13.6,t79,"drlxca = ",g13.6,t105,
16 . "drlxcc = ",g13.6,/,
17 . t4,"dtimeh = ",g13.6,t27,"dtimei = ",g13.6,t53,
18 . "dtimel = ",g13.6,t79,"dtimeu = ",g13.6,t105,
19 . "dtmpca = ",g13.6,/,
20 . t4,"dtmpcc = ",g13.6,t27,"ebalna = ",g13.6,t53,
21 . "ebalnc = ",g13.6,t79,"ebalsa = ",g13.6,t105,
26 read(10,'(a)') teststring
27 if (teststring.ne." arlxca = 0.00000 arlxcc = ")call abort
29 read(10,'(a)') teststring
30 if (teststring.ne." arlxca = 0.00000 arlxcc = ")call abort