gcc/testsuite/gfortran.dg/unf_io_convert_4.f90

   1 !  { dg-do run }
   2 !  { dg-options "-fconvert=big-endian" }
   3 program main
   4   character (len=30) ch
   5   open (10,form="unformatted",convert="little_endian")
   6   inquire (10, convert=ch)
   7   if (ch .ne. "LITTLE_ENDIAN") call abort
   8   close (10, status="delete")
   9
  10   open(11,form="unformatted")
  11   inquire (11, convert=ch)
  12   if (ch .ne. "BIG_ENDIAN") call abort
  13   close (11, status="delete")
  14 end program main