OSDN Git Service

2009-04-05 Daniel Kraft <d@domob.eu>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / read_float_2.f03
1 ! { dg-do run }
2 ! Contributed by Dominique Dhumieres <dominiq@lps.ens.fr>
3
4 character(15) :: str="+ .339  567+2"
5 real, parameter :: should_be = .339567e2
6 real, parameter :: eps = 10 * epsilon (should_be)
7 real :: x, y
8
9 read(str,'(BN,F15.6)') x
10 print *, x
11 read(str,'(G15.7)') y
12 print *, y
13
14 if (abs (x - should_be) > eps .or. abs (y - should_be) > eps) then
15   call abort ()
16 end if
17
18 end