gcc/testsuite/gfortran.dg/io_constraints_8.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fmax-errors=100 -Wall" }
   3 !
   4 ! PR fortran/48972
   5 !
   6 !
   7 ! All string arguments to I/O statements shall
   8 ! be of default-character type. (Except for the
   9 ! internal unit.)
  10 !
  11
  12 character(len=30, kind=4) :: str1
  13 integer :: i
  14
  15 OPEN(99, access=4_'direct')     ! { dg-error "must be a character string of default kind" }
  16 OPEN(99, action=4_'read')       ! { dg-error "must be a character string of default kind" }
  17 OPEN(99, asynchronous=4_'no')   ! { dg-error "must be a character string of default kind" })
  18 OPEN(99, blank=4_'null')        ! { dg-error "must be a character string of default kind" }
  19 OPEN(99, decimal=4_'comma')     ! { dg-error "must be a character string of default kind" }
  20 OPEN(99, delim=4_'quote')       ! { dg-error "must be a character string of default kind" }
  21 OPEN(99, encoding=4_'default')  ! { dg-error "must be a character string of default kind" }
  22 OPEN(99, file=4_'Test.dat')     ! { dg-error "must be a character string of default kind" }
  23 OPEN(99, form=4_'formatted')    ! { dg-error "must be a character string of default kind" }
  24 OPEN(99, pad=4_'yes')           ! { dg-error "must be a character string of default kind" }
  25 OPEN(99, position=4_'asis')     ! { dg-error "must be a character string of default kind" }
  26 OPEN(99, round=4_'down')        ! { dg-error "must be a character string of default kind" }
  27 OPEN(99, sign=4_'plus')         ! { dg-error "must be a character string of default kind" }
  28 OPEN(99, status=4_'old')        ! { dg-error "must be a character string of default kind" }
  29 OPEN(99, IOSTAT=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
  30
  31 close(99, iostat=i, iomsg=str1) ! { dg-error "must be a character string of default kind" }
  32 close(99, status=4_'delete')    ! { dg-error "must be a character string of default kind" }
  33
  34 write(99, '(a)', advance=4_'no')! { dg-error "must be a character string of default kind" }
  35 read (99, *, blank=4_'null')    ! { dg-error "must be a character string of default kind" }
  36 write(99, *, decimal=4_'comma') ! { dg-error "must be a character string of default kind" }
  37 write(99, *, delim=4_'quote')   ! { dg-error "must be a character string of default kind" }
  38 read (99, *, pad=4_'yes')       ! { dg-error "must be a character string of default kind" }
  39 write(99, *, round=4_'down')    ! { dg-error "must be a character string of default kind" }
  40 write(99, *, sign=4_'plus')     ! { dg-error "must be a character string of default kind" }
  41
  42 wait(99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
  43
  44 endfile  (99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
  45 backspace(99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
  46 rewind   (99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
  47 flush    (99, iostat=i, iomsg=str1)  ! { dg-error "must be a character string of default kind" }
  48
  49 inquire (file=str1)               ! { dg-error "must be a character string of default kind" }
  50 inquire (99,access=str1)          ! { dg-error "must be a character string of default kind" }
  51 inquire (99,action=str1)          ! { dg-error "must be a character string of default kind" }
  52 inquire (99,asynchronous=str1)    ! { dg-error "must be a character string of default kind" }
  53 inquire (99,blank=str1)           ! { dg-error "must be a character string of default kind" }
  54 inquire (99,decimal=str1)         ! { dg-error "must be a character string of default kind" }
  55 inquire (99,delim=str1)           ! { dg-error "must be a character string of default kind" }
  56 inquire (99,direct=str1)          ! { dg-error "must be a character string of default kind" }
  57 inquire (99,encoding=str1)        ! { dg-error "must be a character string of default kind" }
  58 inquire (99,form=str1)            ! { dg-error "must be a character string of default kind" }
  59 inquire (99,formatted=str1)       ! { dg-error "must be a character string of default kind" }
  60 inquire (99,iomsg=str1, iostat=i) ! { dg-error "must be a character string of default kind" }
  61 inquire (99,name=str1)            ! { dg-error "must be a character string of default kind" }
  62 inquire (99,pad=str1)             ! { dg-error "must be a character string of default kind" }
  63 inquire (99,position=str1)        ! { dg-error "must be a character string of default kind" }
  64 inquire (99,read=str1)            ! { dg-error "must be a character string of default kind" }
  65 inquire (99,readwrite=str1)       ! { dg-error "must be a character string of default kind" }
  66 inquire (99,round=str1)           ! { dg-error "must be a character string of default kind" }
  67 inquire (99,sequential=str1)      ! { dg-error "must be a character string of default kind" }
  68 inquire (99,sign=str1)            ! { dg-error "must be a character string of default kind" }
  69 !inquire (99,stream=str1)  ! Fails due to PR 48976
  70 inquire (99,unformatted=str1)     ! { dg-error "must be a character string of default kind" }
  71 inquire (99,write=str1)           ! { dg-error "must be a character string of default kind" }
  72 end