! { dg-do compile } | |
! PR fortran/91642 | |
! Code contributed by Gerhard Steinmetz | |
program p | |
integer i | |
integer :: iol | |
integer, external :: null | |
i = 0 | |
inquire (iolength=iol) null() | |
if (iol == 4) stop 1 | |
end | |
subroutine q | |
integer i | |
integer :: iol | |
i = 0 | |
inquire (iolength=iol) i, null() ! { dg-error "cannot appear in INQUIRE" } | |
if (iol == 4) stop 2 | |
end |