gcc/testsuite/gfortran.dg/pr66725.f90

   1 ! { dg-do compile }
   2 ! PR fortran/66725
   3 !
   4 program foo
   5
   6    open(unit=1,access = 999)        ! { dg-error "must be of type CHARACTER" }
   7    open(unit=1,action = 999)        ! { dg-error "must be of type CHARACTER" }
   8    open(unit=1,asynchronous = 999)  ! { dg-error "must be of type CHARACTER" }
   9    open(unit=1,blank = 999)         ! { dg-error "must be of type CHARACTER" }
  10    open(unit=1,decimal = 999)       ! { dg-error "must be of type CHARACTER" }
  11    open(unit=1,delim = 999)         ! { dg-error "must be of type CHARACTER" }
  12    open(unit=1,encoding = 999)      ! { dg-error "must be of type CHARACTER" }
  13    open(unit=1,form = 999)          ! { dg-error "must be of type CHARACTER" }
  14    open(unit=1,pad = 999)           ! { dg-error "must be of type CHARACTER" }
  15    open(unit=1,position = 999)      ! { dg-error "must be of type CHARACTER" }
  16    open(unit=1,round = 999)         ! { dg-error "must be of type CHARACTER" }
  17    open(unit=1,sign = 999)          ! { dg-error "must be of type CHARACTER" }
  18    open(unit=1,status = 999)        ! { dg-error "must be of type CHARACTER" }
  19
  20    close(unit=1, status=999)        ! { dg-error "must be of type CHARACTER" }
  21
  22    write (unit=1, asynchronous=257) ! { dg-error "must be of type CHARACTER" }
  23    write (unit=1, delim=257)        ! { dg-error "must be of type CHARACTER" }
  24    write (unit=1, decimal=257)      ! { dg-error "must be of type CHARACTER" }
  25    write (unit=1, round=257)        ! { dg-error "must be of type CHARACTER" }
  26    write (unit=1, sign=257)         ! { dg-error "must be of type CHARACTER" }
  27
  28    write (unit=1, blank=257)        ! { dg-error "must be of type CHARACTER" }
  29    write (unit=1, pad=257)          ! { dg-error "must be of type CHARACTER" }
  30
  31 end program foo