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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-add-options ieee }`
3
4			`! PR fortran/36214`
5			`! For BOZ-initialization of floats, the precision used to be wrong sometimes.`
6
7			`implicit none`
8			`real(4) r`
9			`real(8) rd`
10			`complex(8) z`
11			`rd = &`
12			`real (b'00000000000000000000000000000000&`
13			`&01000000001010010101001111111101',8)`
14			`z = &`
15			`cmplx(b'00000000000000000000000000000000&`
16			`&01000000001010010101001111111101',0,8)`
17			`r = 0.`
18			`if (z /= rd) call abort`
19			`end`