blob: 6c90d2f6762edcc9ef496cbda0750f706d6fb7a7 (
plain)
1
2
3
4
5
6
7
8
|
! { 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
|
