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

Subversion Repositories openrisc

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

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


! { dg-do run }
! Check that automatic objects work properly in the presence of a save
! statement.
! PR21034
subroutine test(n)
  implicit none
  integer n
  real dte(n)
  character(len=n) :: s
  save
  dte = 0
  s = ""
end
 
program prog
  call test(4)
  call test(10)
end program

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Check that automatic objects work properly in the presence of a save`
3			`! statement.`
4			`! PR21034`
5			`subroutine test(n)`
6			`implicit none`
7			`integer n`
8			`real dte(n)`
9			`character(len=n) :: s`
10			`save`
11			`dte = 0`
12			`s = ""`
13			`end`
14
15			`program prog`
16			`call test(4)`
17			`call test(10)`
18			`end program`

Browse

Tools

Subversion Repositories openrisc

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