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" }
5END
6