1! { dg-do run } 2! PR48976 test case by jvdelisle@gcc.gnu.org 3character(len=20) :: str 4str = "abcdefg" 5inquire(file="abcddummy", stream=str) 6!print *, "str=",str 7if (str /= "UNKNOWN") STOP 1 8inquire(99, stream=str) 9!print *, "str=",str 10if (str /= "UNKNOWN") STOP 2 11open(99,access="stream") 12inquire(99, stream=str) 13!print *, "str=",str 14if (str /= "YES") goto 10 15close(99) 16open(99,access="direct", recl=16) 17inquire(99, stream=str) 18!print *, "str=",str 19if (str /= "NO") goto 10 20close(99) 21open(99,access="sequential") 22inquire(99, stream=str) 23!print *, "str=",str 24if (str /= "NO") goto 10 25close(99, status="delete") 26stop 2710 close(99, status="delete") 28STOP 3 29end 30