15 lines
395 B
Fortran
15 lines
395 B
Fortran
! { 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
|