1! { dg-do run { target fd_truncate } }
2! pr40662 segfaults when specific format is invoked twice.
3! pr40330  incorrect io.
4! test case derived from pr40662, <jvdelisle@gcc.gnu.org>
5      program astap
6      implicit none
7      character(34) :: teststring
8      real(4) :: arlxca = 0.0
9      open(10)
10      write(10,40) arlxca
11      write(10,40) arlxca
1240    format(t4,"arlxca = ",1pg13.6,t27,"arlxcc = ",g13.6,t53,
13     .            "atmpca = ",g13.6,t79,"atmpcc = ",g13.6,t105,
14     .            "backup = ",g13.6,/,
15     .         t4,"csgfac = ",g13.6,t27,"csgmax = ",g13.6,t53,
16     .            "csgmin = ",g13.6,t79,"drlxca = ",g13.6,t105,
17     .            "drlxcc = ",g13.6,/,
18     .         t4,"dtimeh = ",g13.6,t27,"dtimei = ",g13.6,t53,
19     .            "dtimel = ",g13.6,t79,"dtimeu = ",g13.6,t105,
20     .            "dtmpca = ",g13.6,/,
21     .         t4,"dtmpcc = ",g13.6,t27,"ebalna = ",g13.6,t53,
22     .            "ebalnc = ",g13.6,t79,"ebalsa = ",g13.6,t105,
23     .            "ebalsc = ",g13.6)
24      rewind 10
25      teststring = ""
26      read(10,'(a)') teststring
27      if (teststring.ne."   arlxca =   0.00000     arlxcc =")STOP 1
28      teststring = ""
29      read(10,'(a)') teststring
30      if (teststring.ne."   arlxca =   0.00000     arlxcc =")STOP 2
31      close(10, status='delete')
32      end program astap
33
34
35