1! { dg-do compile }
2!
3! Test our conformance to item 4.9 ("Kind type parameters of integer
4! specifiers") of the Fortran 2003 status document at
5! ftp://ftp.nag.co.uk/sc22wg5/N1551-N1600/N1579.pdf
6!
7! The non-default integer variables are allowed since Fortran 2003.
8! The non-default logical variables are allowed since Fortran 2008.
9
10  integer(kind=8) :: i, j, k, n
11  logical(kind=8) :: l1, l2, l3
12
13  open(10, status="scratch", iostat=i)
14
15  backspace(10, iostat=i)
16  endfile(10, iostat=i)
17  rewind(10, iostat=i)
18
19  read(*, '(I2)', iostat=i) k
20  read(*, '(I2)', advance='no', size=j) k
21
22  inquire(iolength=i) "42"
23  inquire(10, iostat=i)
24  inquire(10, number=j)
25  inquire(10, recl=k)
26  inquire(10, nextrec=n)
27
28  inquire(10, exist=l1)
29  inquire(10, named=l3)
30  inquire(10, opened=l2)
31  inquire(10, pending=l2)
32
33  close(10, iostat=i)
34
35end
36