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

Subversion Repositories openrisc

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

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


! { dg-do run }
! Test char and ichar intrinsic functions
Program test
integer i
 
if (ichar (char (0)) .ne. 0) call abort ()
if (ichar (char (255)) .ne. 255) call abort ()
if (ichar (char (127)) .ne. 127) call abort ()
 
i = 0
if (ichar (char (i)) .ne. i) call abort ()
i = 255
if (ichar (char (i)) .ne. i) call abort ()
i = 127
if (ichar (char (i)) .ne. i) call abort ()
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Test char and ichar intrinsic functions`
3			`Program test`
4			`integer i`
5
6			`if (ichar (char (0)) .ne. 0) call abort ()`
7			`if (ichar (char (255)) .ne. 255) call abort ()`
8			`if (ichar (char (127)) .ne. 127) call abort ()`
9
10			`i = 0`
11			`if (ichar (char (i)) .ne. i) call abort ()`
12			`i = 255`
13			`if (ichar (char (i)) .ne. i) call abort ()`
14			`i = 127`
15			`if (ichar (char (i)) .ne. i) call abort ()`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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