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

Subversion Repositories openrisc

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

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


! { dg-do run { target i?86-*-* x86_64-*-* } }
! { dg-require-effective-target ilp32 }
! { dg-options "-fdefault-integer-8 -fdefault-real-8 -fdefault-double-8" }
program a
   logical l
   integer i
   real x
   double precision d
   if (kind(l) /= 8) call abort
   if (kind(i) /= 8) call abort
   if (kind(x) /= 8) call abort
   if (kind(d) /= 8) call abort
end program a

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run { target i?86-- x86_64-- } }`
2			`! { dg-require-effective-target ilp32 }`
3			`! { dg-options "-fdefault-integer-8 -fdefault-real-8 -fdefault-double-8" }`
4			`program a`
5			`logical l`
6			`integer i`
7			`real x`
8			`double precision d`
9			`if (kind(l) /= 8) call abort`
10			`if (kind(i) /= 8) call abort`
11			`if (kind(x) /= 8) call abort`
12			`if (kind(d) /= 8) call abort`
13			`end program a`

Browse

Tools

Subversion Repositories openrisc

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