Google Git
Sign in
gnu / gcc / refs/heads/releases/gcc-6 / . / gcc / testsuite / gfortran.dg / negative_unit_check.f90
blob: 2a1b16c1093a4e118dca6c4816b0a2a89700b9ea [file] [log] [blame]
! { dg-do compile }
! Test case from PR61933.
LOGICAL :: file_exists
INQUIRE(UNIT=-1,EXIST=file_exists)! { dg-error "can not be -1" }
END