gcc/testsuite/gfortran.dg/io_constraints_11.f90

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