2 ! { dg-options "-std=f2003" }
3 ! Based on PR fortran/66724, also covers fortran/66725 and fortran/87923.
6 write (1, blank
='') ! { dg-error "BLANK specifier in WRITE statement at ... has invalid value" }
8 write (1, asynchronous
=1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
9 write (1, asynchronous
=1e1
) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
10 write (1, asynchronous
=1d1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
11 write (1, asynchronous
=.false
.) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
12 write (1, asynchronous
='') ! { dg-error "ASYNCHRONOUS specifier in WRITE statement at ... has invalid value" }
13 write (1, asynchronous
='no')
14 write (1, asynchronous
=null()) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
15 write (1, asynchronous
=(1)) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
16 write (1, asynchronous
=(1., 0.)) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
17 write (1, asynchronous
=[1]) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
18 write (1, asynchronous
=['']) ! { dg-error "ASYNCHRONOUS tag at ... must be scalar" }
20 write (1, blank
=1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
21 write (1, blank
=1e1
) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
22 write (1, blank
=1d1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
23 write (1, blank
=.false
.) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
24 write (1, blank
='no') ! { dg-error "BLANK specifier in WRITE statement at ... has invalid value" }
25 write (1, blank
=null()) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
26 write (1, blank
=(1)) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
27 write (1, blank
=(1., 0.)) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
28 write (1, blank
=[1]) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
29 write (1, blank
=['']) ! { dg-error "BLANK tag at ... must be scalar" }
31 write (1, delim
=1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
32 write (1, delim
=1e1
) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
33 write (1, delim
=1d1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
34 write (1, delim
=.false
.) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
35 write (1, delim
='') ! { dg-error "DELIM specifier in WRITE statement at ... has invalid value" }
36 write (1, delim
='no') ! { dg-error "DELIM specifier in WRITE statement at ... has invalid value" }
37 write (1, delim
=null()) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
38 write (1, delim
=(1)) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
39 write (1, delim
=(1., 0.)) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
40 write (1, delim
=[1]) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
41 write (1, delim
=['']) ! { dg-error "DELIM tag at ... must be scalar" }
43 write (1, decimal
=1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
44 write (1, decimal
=1e1
) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
45 write (1, decimal
=1d1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
46 write (1, decimal
=.false
.) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
47 write (1, decimal
='') ! { dg-error "DECIMAL specifier in WRITE statement at ... has invalid value" }
48 write (1, decimal
='no') ! { dg-error "DECIMAL specifier in WRITE statement at ... has invalid value" }
49 write (1, decimal
=null()) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
50 write (1, decimal
=(1)) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
51 write (1, decimal
=(1., 0.)) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
52 write (1, decimal
=[1]) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
53 write (1, decimal
=['']) ! { dg-error "DECIMAL tag at ... must be scalar" }
55 write (1, iomsg
=1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
56 write (1, iomsg
=1e1
) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
57 write (1, iomsg
=1d1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
58 write (1, iomsg
=.false
.) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
59 write (1, iomsg
='') ! { dg-error "Non-variable expression" }
60 write (1, iomsg
='no') ! { dg-error "Non-variable expression" }
61 write (1, iomsg
=null()) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
62 write (1, iomsg
=(1)) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
63 write (1, iomsg
=(1., 0.)) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
64 write (1, iomsg
=[1]) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
65 write (1, iomsg
=['']) ! { dg-error "IOMSG tag at ... must be scalar" }
67 write (1, pad
=1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
68 write (1, pad
=1e1
) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
69 write (1, pad
=1d1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
70 write (1, pad
=.false
.) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
71 write (1, pad
='') ! { dg-error "PAD specifier in WRITE statement at ... has invalid value" }
72 write (1, pad
='no') ! { dg-error "the PAD= specifier at ... must be with an explicit format expression" }
73 write (1, pad
=null()) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
74 write (1, pad
=(1)) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
75 write (1, pad
=(1., 0.)) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
76 write (1, pad
=[1]) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
77 write (1, pad
=['']) ! { dg-error "PAD tag at ... must be scalar" }
79 write (1, round
=1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
80 write (1, round
=1e1
) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
81 write (1, round
=1d1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
82 write (1, round
=.false
.) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
83 write (1, round
='') ! { dg-error "ROUND specifier in WRITE statement at ... has invalid value" }
84 write (1, round
='no') ! { dg-error "ROUND specifier in WRITE statement at ... has invalid value" }
85 write (1, round
=null()) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
86 write (1, round
=(1)) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
87 write (1, round
=(1., 0.)) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
88 write (1, round
=[1]) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
89 write (1, round
=['']) ! { dg-error "ROUND tag at ... must be scalar" }
91 write (1, sign
=1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
92 write (1, sign
=1e1
) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
93 write (1, sign
=1d1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
94 write (1, sign
=.false
.) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
95 write (1, sign
='') ! { dg-error "SIGN specifier in WRITE statement at ... has invalid value" }
96 write (1, sign
='no') ! { dg-error "SIGN specifier in WRITE statement at ... has invalid value" }
97 write (1, sign
=null()) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
98 write (1, sign
=(1)) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
99 write (1, sign
=(1., 0.)) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
100 write (1, sign
=[1]) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
101 write (1, sign
=['']) ! { dg-error "SIGN tag at ... must be scalar" }