! { 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