1! { dg-do run } 2! { dg-options "-fconvert=big-endian" } 3program 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") 14end program main 15