URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [unf_io_convert_4.f90] - Blame information for rev 858

Go to most recent revision | Details | Compare with Previous | View Log


!  { 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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [unf_io_convert_4.f90] - Blame information for rev 858