gcc/testsuite/gfortran.dg/io_tags_6.f90

   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 open (1, access=1) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
   7 open (1, access=1e1) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
   8 open (1, access=1d1) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
   9 open (1, access=.false.) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
  10 open (1, access='') ! { dg-error "ACCESS specifier in OPEN statement at ... has invalid value" }
  11 open (1, access='no') ! { dg-error "ACCESS specifier in OPEN statement at ... has invalid value" }
  12 open (1, access=null()) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
  13 open (1, access=(1)) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
  14 open (1, access=(1., 0.)) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
  15 open (1, access=[1]) ! { dg-error "ACCESS tag at ... must be of type CHARACTER" }
  16 open (1, access=['']) ! { dg-error "ACCESS tag at ... must be scalar" }
  17
  18 open (1, action=1) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  19 open (1, action=1e1) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  20 open (1, action=1d1) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  21 open (1, action=.false.) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  22 open (1, action='') ! { dg-error "ACTION specifier in OPEN statement at ... has invalid value" }
  23 open (1, action='no') ! { dg-error "ACTION specifier in OPEN statement at ... has invalid value" }
  24 open (1, action=null()) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  25 open (1, action=(1)) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  26 open (1, action=(1., 0.)) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  27 open (1, action=[1]) ! { dg-error "ACTION tag at ... must be of type CHARACTER" }
  28 open (1, action=['']) ! { dg-error "ACTION tag at ... must be scalar" }
  29
  30 open (1, asynchronous=1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  31 open (1, asynchronous=1e1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  32 open (1, asynchronous=1d1) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  33 open (1, asynchronous=.false.) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  34 open (1, asynchronous='') ! { dg-error "ASYNCHRONOUS specifier in OPEN statement at ... has invalid value" }
  35 open (1, asynchronous='no')
  36 open (1, asynchronous=null()) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  37 open (1, asynchronous=(1)) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  38 open (1, asynchronous=(1., 0.)) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  39 open (1, asynchronous=[1]) ! { dg-error "ASYNCHRONOUS tag at ... must be of type CHARACTER" }
  40 open (1, asynchronous=['']) ! { dg-error "ASYNCHRONOUS tag at ... must be scalar" }
  41
  42 open (1, blank=1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  43 open (1, blank=1e1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  44 open (1, blank=1d1) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  45 open (1, blank=.false.) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  46 open (1, blank='') ! { dg-error "BLANK specifier in OPEN statement at ... has invalid value" }
  47 open (1, blank='no') ! { dg-error "BLANK specifier in OPEN statement at ... has invalid value" }
  48 open (1, blank=null()) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  49 open (1, blank=(1)) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  50 open (1, blank=(1., 0.)) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  51 open (1, blank=[1]) ! { dg-error "BLANK tag at ... must be of type CHARACTER" }
  52 open (1, blank=['']) ! { dg-error "BLANK tag at ... must be scalar" }
  53
  54 open (1, delim=1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  55 open (1, delim=1e1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  56 open (1, delim=1d1) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  57 open (1, delim=.false.) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  58 open (1, delim='') ! { dg-error "DELIM specifier in OPEN statement at ... has invalid value" }
  59 open (1, delim='no') ! { dg-error "DELIM specifier in OPEN statement at ... has invalid value" }
  60 open (1, delim=null()) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  61 open (1, delim=(1)) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  62 open (1, delim=(1., 0.)) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  63 open (1, delim=[1]) ! { dg-error "DELIM tag at ... must be of type CHARACTER" }
  64 open (1, delim=['']) ! { dg-error "DELIM tag at ... must be scalar" }
  65
  66 open (1, decimal=1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  67 open (1, decimal=1e1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  68 open (1, decimal=1d1) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  69 open (1, decimal=.false.) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  70 open (1, decimal='') ! { dg-error "DECIMAL specifier in OPEN statement at ... has invalid value" }
  71 open (1, decimal='no') ! { dg-error "DECIMAL specifier in OPEN statement at ... has invalid value" }
  72 open (1, decimal=null()) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  73 open (1, decimal=(1)) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  74 open (1, decimal=(1., 0.)) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  75 open (1, decimal=[1]) ! { dg-error "DECIMAL tag at ... must be of type CHARACTER" }
  76 open (1, decimal=['']) ! { dg-error "DECIMAL tag at ... must be scalar" }
  77
  78 open (1, encoding=1) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  79 open (1, encoding=1e1) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  80 open (1, encoding=1d1) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  81 open (1, encoding=.false.) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  82 open (1, encoding='') ! { dg-error "ENCODING specifier in OPEN statement at ... has invalid value" }
  83 open (1, encoding='no') ! { dg-error "ENCODING specifier in OPEN statement at ... has invalid value" }
  84 open (1, encoding=null()) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  85 open (1, encoding=(1)) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  86 open (1, encoding=(1., 0.)) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  87 open (1, encoding=[1]) ! { dg-error "ENCODING tag at ... must be of type CHARACTER" }
  88 open (1, encoding=['']) ! { dg-error "ENCODING tag at ... must be scalar" }
  89
  90 open (1, form=1) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
  91 open (1, form=1e1) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
  92 open (1, form=1d1) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
  93 open (1, form=.false.) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
  94 open (1, form='') ! { dg-error "FORM specifier in OPEN statement at ... has invalid value" }
  95 open (1, form='no') ! { dg-error "FORM specifier in OPEN statement at ... has invalid value" }
  96 open (1, form=null()) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
  97 open (1, form=(1)) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
  98 open (1, form=(1., 0.)) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
  99 open (1, form=[1]) ! { dg-error "FORM tag at ... must be of type CHARACTER" }
 100 open (1, form=['']) ! { dg-error "FORM tag at ... must be scalar" }
 101
 102 open (1, iomsg=1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 103 open (1, iomsg=1e1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 104 open (1, iomsg=1d1) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 105 open (1, iomsg=.false.) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 106 open (1, iomsg='') ! { dg-error "Non-variable expression" }
 107 open (1, iomsg='no') ! { dg-error "Non-variable expression" }
 108 open (1, iomsg=null()) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 109 open (1, iomsg=(1)) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 110 open (1, iomsg=(1., 0.)) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 111 open (1, iomsg=[1]) ! { dg-error "IOMSG tag at ... must be of type CHARACTER" }
 112 open (1, iomsg=['']) ! { dg-error "IOMSG tag at ... must be scalar" }
 113
 114 open (1, pad=1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 115 open (1, pad=1e1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 116 open (1, pad=1d1) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 117 open (1, pad=.false.) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 118 open (1, pad='') ! { dg-error "PAD specifier in OPEN statement at ... has invalid value" }
 119 open (1, pad='no')
 120 open (1, pad=null()) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 121 open (1, pad=(1)) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 122 open (1, pad=(1., 0.)) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 123 open (1, pad=[1]) ! { dg-error "PAD tag at ... must be of type CHARACTER" }
 124 open (1, pad=['']) ! { dg-error "PAD tag at ... must be scalar" }
 125
 126 open (1, position=1) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 127 open (1, position=1e1) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 128 open (1, position=1d1) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 129 open (1, position=.false.) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 130 open (1, position='') ! { dg-error "POSITION specifier in OPEN statement at ... has invalid value" }
 131 open (1, position='no') ! { dg-error "POSITION specifier in OPEN statement at ... has invalid value" }
 132 open (1, position=null()) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 133 open (1, position=(1)) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 134 open (1, position=(1., 0.)) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 135 open (1, position=[1]) ! { dg-error "POSITION tag at ... must be of type CHARACTER" }
 136 open (1, position=['']) ! { dg-error "POSITION tag at ... must be scalar" }
 137
 138 open (1, round=1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 139 open (1, round=1e1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 140 open (1, round=1d1) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 141 open (1, round=.false.) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 142 open (1, round='') ! { dg-error "ROUND specifier in OPEN statement at ... has invalid value" }
 143 open (1, round='no') ! { dg-error "ROUND specifier in OPEN statement at ... has invalid value" }
 144 open (1, round=null()) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 145 open (1, round=(1)) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 146 open (1, round=(1., 0.)) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 147 open (1, round=[1]) ! { dg-error "ROUND tag at ... must be of type CHARACTER" }
 148 open (1, round=['']) ! { dg-error "ROUND tag at ... must be scalar" }
 149
 150 open (1, sign=1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 151 open (1, sign=1e1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 152 open (1, sign=1d1) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 153 open (1, sign=.false.) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 154 open (1, sign='') ! { dg-error "SIGN specifier in OPEN statement at ... has invalid value" }
 155 open (1, sign='no') ! { dg-error "SIGN specifier in OPEN statement at ... has invalid value" }
 156 open (1, sign=null()) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 157 open (1, sign=(1)) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 158 open (1, sign=(1., 0.)) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 159 open (1, sign=[1]) ! { dg-error "SIGN tag at ... must be of type CHARACTER" }
 160 open (1, sign=['']) ! { dg-error "SIGN tag at ... must be scalar" }
 161
 162 open (1, status=1) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 163 open (1, status=1e1) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 164 open (1, status=1d1) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 165 open (1, status=.false.) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 166 open (1, status='') ! { dg-error "STATUS specifier in OPEN statement at ... has invalid value" }
 167 open (1, status='no') ! { dg-error "STATUS specifier in OPEN statement at ... has invalid value" }
 168 open (1, status=null()) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 169 open (1, status=(1)) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 170 open (1, status=(1., 0.)) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 171 open (1, status=[1]) ! { dg-error "STATUS tag at ... must be of type CHARACTER" }
 172 open (1, status=['']) ! { dg-error "STATUS tag at ... must be scalar" }
 173
 174
 175 end