?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR target/83368
[official-gcc.git] / gcc / testsuite / gfortran.dg / negative_unit_check.f90
blob002b5b4ac8279b6114762d3c473525c9be704305
1 ! { dg-do compile }
2 ! Test case from PR61933.
3 LOGICAL :: file_exists
4 INQUIRE(UNIT=-1,EXIST=file_exists)! { dg-error "can not be -1" }
5 INQUIRE(UNIT=-2,EXIST=file_exists)! { dg-error "can not be -2" }
6 END
Mirror of the offical gcc git repository hosted at gcc.gnu.org