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

Subversion Repositories openrisc

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

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

Line No. Rev Author Line
1 694 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.