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