Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / inquire_10.f90
1 ! { dg-do run { target { ! newlib } } }
2   character(len=800) :: cwd
3   integer :: unit
4
5   call getcwd(cwd)
6
7   open(file='cseq', unit=23)
8   inquire(file='cseq',number=unit)
9   if (unit /= 23) call abort
10   inquire(file=trim(cwd) // '/cseq',number=unit)
11   if (unit /= 23) call abort
12
13   inquire(file='foo/../cseq2',number=unit)
14   if (unit >= 0) call abort
15   inquire(file='cseq2',number=unit)
16   if (unit >= 0) call abort
17 end