Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/io_tags_10.f90 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
152
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
1 ! { dg-do compile }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
2 ! { dg-options "-std=f2003" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
3 ! Based on PR fortran/66724, also covers fortran/66725 and fortran/87923.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
4 !
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
5
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
6 write (1, blank='') ! { dg-error "BLANK specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
7
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
8 write (1, asynchronous=1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
9 write (1, asynchronous=1e1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
10 write (1, asynchronous=1d1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
11 write (1, asynchronous=.false.) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
12 write (1, asynchronous='') ! { dg-error "ASYNCHRONOUS specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
13 write (1, asynchronous='no')
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
14 write (1, asynchronous=null()) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
15 write (1, asynchronous=(1)) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
16 write (1, asynchronous=(1., 0.)) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
17 write (1, asynchronous=[1]) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
18 write (1, asynchronous=['']) ! { dg-error "ASYNCHRONOUS tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
19
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
20 write (1, blank=1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
21 write (1, blank=1e1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
22 write (1, blank=1d1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
23 write (1, blank=.false.) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
24 write (1, blank='no') ! { dg-error "BLANK specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
25 write (1, blank=null()) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
26 write (1, blank=(1)) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
27 write (1, blank=(1., 0.)) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
28 write (1, blank=[1]) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
29 write (1, blank=['']) ! { dg-error "BLANK tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
30
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
31 write (1, delim=1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
32 write (1, delim=1e1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
33 write (1, delim=1d1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
34 write (1, delim=.false.) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
35 write (1, delim='') ! { dg-error "DELIM specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
36 write (1, delim='no') ! { dg-error "DELIM specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
37 write (1, delim=null()) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
38 write (1, delim=(1)) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
39 write (1, delim=(1., 0.)) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
40 write (1, delim=[1]) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
41 write (1, delim=['']) ! { dg-error "DELIM tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
42
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
43 write (1, decimal=1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
44 write (1, decimal=1e1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
45 write (1, decimal=1d1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
46 write (1, decimal=.false.) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
47 write (1, decimal='') ! { dg-error "DECIMAL specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
48 write (1, decimal='no') ! { dg-error "DECIMAL specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
49 write (1, decimal=null()) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
50 write (1, decimal=(1)) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
51 write (1, decimal=(1., 0.)) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
52 write (1, decimal=[1]) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
53 write (1, decimal=['']) ! { dg-error "DECIMAL tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
54
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
55 write (1, iomsg=1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
56 write (1, iomsg=1e1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
57 write (1, iomsg=1d1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
58 write (1, iomsg=.false.) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
59 write (1, iomsg='') ! { dg-error "Non-variable expression" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
60 write (1, iomsg='no') ! { dg-error "Non-variable expression" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
61 write (1, iomsg=null()) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
62 write (1, iomsg=(1)) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
63 write (1, iomsg=(1., 0.)) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
64 write (1, iomsg=[1]) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
65 write (1, iomsg=['']) ! { dg-error "IOMSG tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
66
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
67 write (1, pad=1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
68 write (1, pad=1e1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
69 write (1, pad=1d1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
70 write (1, pad=.false.) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
71 write (1, pad='') ! { dg-error "PAD specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
72 write (1, pad='no') ! { dg-error "the PAD= specifier at ... must be with an explicit format expression" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
73 write (1, pad=null()) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
74 write (1, pad=(1)) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
75 write (1, pad=(1., 0.)) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
76 write (1, pad=[1]) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
77 write (1, pad=['']) ! { dg-error "PAD tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
78
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
79 write (1, round=1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
80 write (1, round=1e1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
81 write (1, round=1d1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
82 write (1, round=.false.) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
83 write (1, round='') ! { dg-error "ROUND specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
84 write (1, round='no') ! { dg-error "ROUND specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
85 write (1, round=null()) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
86 write (1, round=(1)) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
87 write (1, round=(1., 0.)) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
88 write (1, round=[1]) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
89 write (1, round=['']) ! { dg-error "ROUND tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
90
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
91 write (1, sign=1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
92 write (1, sign=1e1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
93 write (1, sign=1d1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
94 write (1, sign=.false.) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
95 write (1, sign='') ! { dg-error "SIGN specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
96 write (1, sign='no') ! { dg-error "SIGN specifier in WRITE statement at ... has invalid value" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
97 write (1, sign=null()) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
98 write (1, sign=(1)) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
99 write (1, sign=(1., 0.)) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
100 write (1, sign=[1]) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
101 write (1, sign=['']) ! { dg-error "SIGN tag at ... must be scalar" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
102
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
103 end