| ! { dg-do compile } | |
| ! { dg-options "-fallow-invalid-boz" } | |
| ! PR fortran/91650 | |
| ! Code contributed by Gerhard Steinmetz. | |
| program p | |
| character(len=60) str | |
| write(str,*) b'10110' ! { dg-warning "cannot appear in an output IO list" } | |
| if (trim(adjustl(str)) /= '22') stop 1 | |
| write(str,*) o'10110' ! { dg-warning "cannot appear in an output IO list" } | |
| if (trim(adjustl(str)) /= '4168') stop 2 | |
| write(str,*) z'10110' ! { dg-warning "cannot appear in an output IO list" } | |
| if (trim(adjustl(str)) /= '65808') stop 3 | |
| end |