| !{ dg-additional-options "-fcoarray=lib" } |
| ! Test critical syntax errors with stat= and errmsg= specifiers |
| integer(kind=1) :: too_small_stat |
| critical (stat=err) !{ dg-error "must be a scalar INTEGER" } |
| critical (stat=istat, stat=istat) !{ dg-error "Duplicate STAT" } |
| end critical !{ dg-error "Expecting END PROGRAM" } |
| critical (stat=istat, errmsg=istat) !{ dg-error "must be a scalar CHARACTER variable" } |
| critical (stat=istat, errmsg=err, errmsg=err) !{ dg-error "Duplicate ERRMSG" } |
| end critical !{ dg-error "Expecting END PROGRAM" } |
| critical (stat=too_small_stat) !{ dg-error "scalar INTEGER variable of at least kind 2" } |