2 ! { dg
-options
"-fdec" }
4 ! Test blank
/empty
format items in
format string
6 ! Test case contributed by Jim MacArthur
<jim
.macarthur@codethink
.co
.uk
>
7 ! Modified by Mark Eggleston
<mark
.eggleston@codethink
.com
>
9 PROGRAM blank_format_items
12 OPEN
(1, status
="scratch")