blob: 0bcd3b926171f5ebf65083931bfdc14d5676d05a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! { dg-do run }
! PR48618 - Negative unit number in OPEN(...) is sometimes allowed
!
! Test originally from Janne Blomqvist in PR:
! http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48618
program nutest
implicit none
logical l
integer id, ios
open(newunit=id, file="foo_open_negative_unit_1.txt", iostat=ios)
if (ios /= 0) STOP 1
open(id, file="bar.txt", iostat=ios)
if (ios /= 0) STOP 2
close(id, status="delete")
open(unit=10, file="foo_open_negative_unit_1.txt", status="old", iostat=ios)
if (ios /= 0) STOP 3
close(10, status="delete")
open(-10, file="foo_open_negative_unit_1.txt", iostat=ios)
if (ios == 0) STOP 4
inquire(file="foo_open_negative_unit_1.txt", exist=l)
if (l) STOP 5
end program nutest
|
