OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [int_3.f90] - Blame information for rev 307

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

Line No. Rev Author Line
1 302 jeremybenn 
! { dg-do compile }
2 
subroutine bug1
3 
  integer, parameter :: ik1 = 1, ik2 = 2
4 
  integer, parameter :: i = kind(int((0.,0.), kind=ik1))
5 
  integer, parameter :: j = kind(int((0.,0.), kind=ik2))
6 
  integer, parameter :: k = kind(int(0.,      kind=ik1))
7 
  integer, parameter :: l = kind(int(0.,      kind=ik2))
8 
  integer, parameter :: m = kind(int(0,       kind=ik1))
9 
  integer, parameter :: n = kind(int(0,       kind=ik2))
10 
end subroutine bug1

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.