URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_11.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8
! Test case from PR33217 prepared by Jerry DeLisle 
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" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8`
3			`! Test case from PR33217 prepared by Jerry DeLisle`
4			`MODULE print_it`
5			`CONTAINS`
6			`SUBROUTINE i()`
7			`LOGICAL :: qexist`
8			`INQUIRE (UNIT=1, EXIST=qexist)`
9			`END SUBROUTINE i`
10			`END MODULE print_it`
11			`! { dg-final { cleanup-modules "print_it" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_11.f90] - Blame information for rev 694