! { dg-do run } | |
! { dg-options "-fconvert=big-endian" } | |
program main | |
character (len=30) ch | |
open (10,form="unformatted",convert="little_endian") | |
inquire (10, convert=ch) | |
if (ch .ne. "LITTLE_ENDIAN") call abort | |
close (10, status="delete") | |
open(11,form="unformatted") | |
inquire (11, convert=ch) | |
if (ch .ne. "BIG_ENDIAN") call abort | |
close (11, status="delete") | |
end program main |