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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! { dg-warning "Loop variable" "Loop" { target *-*-* } 13 }
3
! { dg-warning "Start expression" "Start" { target *-*-* } 13 }
4
! { dg-warning "End expression" "End" { target *-*-* } 13 }
5
! { dg-warning "Step expression" "Step" { target *-*-* } 13 }
6
! Test REAL type iterators in DO loops
7
program real_do_1
8
  real x, y
9
  integer n
10
 
11
  n = 0
12
  y = 1.0
13
  do x = 1.0, 2.05, 0.1
14
    call check (x, y)
15
    y = y + 0.1
16
    n = n + 1
17
  end do
18
  if (n .ne. 11) call abort()
19
contains
20
subroutine check (a, b)
21
  real, intent(in) :: a, b
22
 
23
  if (abs (a - b) .gt. 0.00001) call abort()
24
end subroutine
25
end program

powered by: WebSVN 2.1.0

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