blob: 3582edaec71972bab07f164ecebc980d7944f8c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { 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") STOP 1
close (10, status="delete")
open(11,form="unformatted")
inquire (11, convert=ch)
if (ch .ne. "BIG_ENDIAN") STOP 2
close (11, status="delete")
end program main
|
