comparison gcc/testsuite/gfortran.dg/pr65903.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
6 100 format ("& notblank !") 6 100 format ("& notblank !")
7 200 format ("& !") 7 200 format ("& !")
8 300 format ("&!") 8 300 format ("&!")
9 9
10 write(astring,100) 10 write(astring,100)
11 if (astring.ne."& notblank !") call abort 11 if (astring.ne."& notblank !") STOP 1
12 !print *, astring 12 !print *, astring
13 write(astring,200) 13 write(astring,200)
14 if (astring.ne."& !") call abort 14 if (astring.ne."& !") STOP 2
15 !print *, astring 15 !print *, astring
16 write(astring,300) 16 write(astring,300)
17 if (astring.ne."&!") call abort 17 if (astring.ne."&!") STOP 3
18 !print *, astring 18 !print *, astring
19 19
20 end 20 end