1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
program format_38
implicit none
real :: value
character(len=20) :: output
value = 42.43
write(output, '(1p, f10.3)') value
if (output /= " 424.300 ") error stop
write(output, '(-1p, f10.3)') value
if (output /= " 4.243 ") error stop
write(output, '(+2p, f10.3)') value
if (output /= " 4243.000 ") error stop
write(output, '(+0p, f10.3)') value
if (output /= " 42.430 ") error stop
write(output, '(+1p, f10.3)') value
if (output /= " 424.300 ") error stop
! Test format statement with + sign
write(output, 100) value
if (output /= " 424.300 ") error stop
100 format (+1p, f10.3)
print *, "All tests passed"
end program
|
