| ! { dg-do compile } | |
| ! PR fortran/87922 | |
| subroutine p | |
| read(1, asynchronous=['no']) ! { dg-error "must be scalar" } | |
| read(1, asynchronous=[character::]) ! { dg-error "must be scalar" } | |
| end | |
| subroutine q | |
| write(1, asynchronous=['no']) ! { dg-error "must be scalar" } | |
| write(1, asynchronous=[character::]) ! { dg-error "must be scalar" } | |
| end |