12 lines
355 B
Fortran
12 lines
355 B
Fortran
! { dg-do compile }
|
|
! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8
|
|
! Test case from PR33217 prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
MODULE print_it
|
|
CONTAINS
|
|
SUBROUTINE i()
|
|
LOGICAL :: qexist
|
|
INQUIRE (UNIT=1, EXIST=qexist)
|
|
END SUBROUTINE i
|
|
END MODULE print_it
|
|
! { dg-final { cleanup-modules "print_it" } }
|