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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/46411
!
! MOVE_ALLOC and other non-elemental but pure
! procedures where regarded as impure.
!
 
pure subroutine test()
  integer, allocatable :: a, b
  allocate(a,b)
  call move_alloc(a,b)
end subroutine test

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/46411`
4			`!`
5			`! MOVE_ALLOC and other non-elemental but pure`
6			`! procedures where regarded as impure.`
7			`!`
8
9			`pure subroutine test()`
10			`integer, allocatable :: a, b`
11			`allocate(a,b)`
12			`call move_alloc(a,b)`
13			`end subroutine test`

Browse

Tools

Subversion Repositories openrisc

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