blob: 28316ec1de5b98c2730df202a1b4bfcc1abe5545 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|
