111
|
1 ! PR fortran/24774
|
|
2 ! { dg-do run }
|
|
3 logical :: l
|
|
4 l = .true.
|
|
5 inquire (file='inquire_9 file that should not exist', exist=l)
|
131
|
6 if (l) STOP 1
|
111
|
7 l = .true.
|
|
8 inquire (unit=-16, exist=l)
|
131
|
9 if (l) STOP 2
|
111
|
10 open (unit=16, file='inquire_9.tst')
|
|
11 write (unit=16, fmt='(a)') 'Test'
|
|
12 l = .false.
|
|
13 inquire (unit=16, exist=l)
|
131
|
14 if (.not.l) STOP 3
|
111
|
15 l = .false.
|
|
16 inquire (file='inquire_9.tst', exist=l)
|
131
|
17 if (.not.l) STOP 4
|
111
|
18 close (unit=16)
|
|
19 l = .false.
|
|
20 inquire (file='inquire_9.tst', exist=l)
|
131
|
21 if (.not.l) STOP 5
|
111
|
22 open (unit=16, file='inquire_9.tst')
|
|
23 close (unit=16, status='delete')
|
|
24 end
|