gcc/testsuite/gfortran.dg/pr92018.f90

! { dg-do compile }
! PR fortran/92018
subroutine sub (f)
   integer :: f
   print *, f(b'11') ! { dg-error "cannot appear as an actual" }
   print *, f(o'11') ! { dg-error "cannot appear as an actual" }
   print *, f(z'11') ! { dg-error "cannot appear as an actual" }
end