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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR fortran/46978
! The coor assignment was using the wrong loop bounds if the argument to
! transpose was an intrinsic function call
!
! Original testcase by Martien Huelsen 
! Reduced by Tobias Burnus 
 
program elastic2
  implicit none
  real, allocatable, dimension(:,:) :: coor
  real, allocatable, dimension(:) :: a
  integer :: nno
  nno = 3
  allocate(a(2*nno))
  call two()
  coor = transpose ( reshape ( a, (/2,nno/) ) )
  if (any(coor /= 12)) call abort
contains
  subroutine two()
    allocate(coor(3,2))
    coor = 99
    a = 12
  end subroutine
end program elastic2

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/46978`
4			`! The coor assignment was using the wrong loop bounds if the argument to`
5			`! transpose was an intrinsic function call`
6			`!`
7			`! Original testcase by Martien Huelsen`
8			`! Reduced by Tobias Burnus`
9
10			`program elastic2`
11			`implicit none`
12			`real, allocatable, dimension(:,:) :: coor`
13			`real, allocatable, dimension(:) :: a`
14			`integer :: nno`
15			`nno = 3`
16			`allocate(a(2*nno))`
17			`call two()`
18			`coor = transpose ( reshape ( a, (/2,nno/) ) )`
19			`if (any(coor /= 12)) call abort`
20			`contains`
21			`subroutine two()`
22			`allocate(coor(3,2))`
23			`coor = 99`
24			`a = 12`
25			`end subroutine`
26			`end program elastic2`

Browse

Tools

Subversion Repositories openrisc

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