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