gcc/testsuite/gfortran.dg/is_iostat_end_eor_1.f90

   1 ! { dg-do run }
   2 ! Test for the Fortran 2003 intrinsics is_iostat_end & is_iostat_eor
   3 !
   4 program test
   5   use iso_fortran_env
   6   implicit none
   7   if ((.not. is_iostat_end(IOSTAT_END)) .or. is_iostat_end(0)) call abort()
   8   if ((.not. is_iostat_eor(IOSTAT_EOR)) .or. is_iostat_end(0)) call abort()
   9 end program test