comparison gcc/testsuite/gfortran.dg/pr20124.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
4 ! pr 20124 4 ! pr 20124
5 character*80 line 5 character*80 line
6 x = -.01 6 x = -.01
7 y = .01 7 y = .01
8 write(line,'(2f10.2)') x, y 8 write(line,'(2f10.2)') x, y
9 if (line.ne.' -0.01 0.01') call abort 9 if (line.ne.' -0.01 0.01') STOP 1
10 end 10 end