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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr36006-1.f90] - Blame information for rev 801

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


! { dg-do compile }
!
subroutine test4
  integer, parameter :: wp = 4
  complex(wp), parameter :: i = (0._wp, 1._wp)
  complex(wp) :: c(12)
  integer :: m, N
 
  N = 12
  c = (/(exp(i*m),m=1,N)/)
  print *, c(1)
end
 
subroutine test8
  integer, parameter :: wp = 8
  complex(wp), parameter :: i = (0._wp, 1._wp)
  complex(wp) :: c(12)
  integer :: m, N
 
  N = 12
  c = (/(exp(i*m),m=1,N)/)
  print *, c(1)
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`subroutine test4`
4			`integer, parameter :: wp = 4`
5			`complex(wp), parameter :: i = (0._wp, 1._wp)`
6			`complex(wp) :: c(12)`
7			`integer :: m, N`
8
9			`N = 12`
10			`c = (/(exp(i*m),m=1,N)/)`
11			`print *, c(1)`
12			`end`
13
14			`subroutine test8`
15			`integer, parameter :: wp = 8`
16			`complex(wp), parameter :: i = (0._wp, 1._wp)`
17			`complex(wp) :: c(12)`
18			`integer :: m, N`
19
20			`N = 12`
21			`c = (/(exp(i*m),m=1,N)/)`
22			`print *, c(1)`
23			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr36006-1.f90] - Blame information for rev 801