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/] [save_2.f90] - Blame information for rev 378

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


! PR fortran/28415
! { dg-do run }
! { dg-options "-O2 -fno-automatic" }
 
      program foo
      integer arrlen
      arrlen = 30
      call bar(arrlen)
      stop
      end
 
      subroutine bar(arg)
      integer arg
      double precision arr(arg)
      do i = 1, arg
         arr(i) = 1.0d0
      enddo
      do i = 1, arg
         write(*,*) i, arr(i)
      enddo
      return
      end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR fortran/28415`
2			`! { dg-do run }`
3			`! { dg-options "-O2 -fno-automatic" }`
4
5			`program foo`
6			`integer arrlen`
7			`arrlen = 30`
8			`call bar(arrlen)`
9			`stop`
10			`end`
11
12			`subroutine bar(arg)`
13			`integer arg`
14			`double precision arr(arg)`
15			`do i = 1, arg`
16			`arr(i) = 1.0d0`
17			`enddo`
18			`do i = 1, arg`
19			`write(,) i, arr(i)`
20			`enddo`
21			`return`
22			`end`

Browse

Tools

Subversion Repositories openrisc_me

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