2 ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
3 ! Test of decimal= feature
7 real, dimension(4) :: a, b, c
13 open(99, decimal="comma", status="scratch")
14 write(99,'(10f8.3)') a
18 if (any(a.ne.43.21)) call abort
20 write(msg,'(dp,f8.3,dc,f8.2,dp,f8.3)', decimal="comma") a(1), b(1), c(1)
21 if (trim(msg).ne." 43.210 3,13 5.432") call abort
24 open(99, decimal="comma", status="scratch")
30 if (any(a.ne.43.21)) call abort
31 if (any(b.ne.3.131)) call abort