1! { dg-do run }
2! Contributed by Dominique Dhumieres <dominiq@lps.ens.fr>
3
4character(15) :: str="+ .339  567+2"
5real, parameter :: should_be = .339567e2
6real, parameter :: eps = 10 * epsilon (should_be)
7real :: x, y
8
9read(str,'(BN,F15.6)') x
10print *, x
11read(str,'(G15.7)') y
12print *, y
13
14if (abs (x - should_be) > eps .or. abs (y - should_be) > eps) then
15  STOP 1
16end if
17
18end
19