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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [transfer_array_intrinsic_1.f90] - Blame information for rev 551

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


! { dg-do run }
! Tests the patch to implement the array version of the TRANSFER
! intrinsic (PR17298).
 
! test the PR is fixed.
 
   call test1 ()
 
contains
 
   subroutine test1 ()
     complex(4) :: z = (1.0, 2.0)
     real(4) :: cmp(2), a(4, 4)
     integer(2) :: it(4, 2, 4), jt(32)
 
! The PR testcase.
 
     cmp = transfer (z, cmp) * 2.0
     if (any (cmp .ne. (/2.0, 4.0/))) call abort ()
 
   end subroutine test1
 
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! Tests the patch to implement the array version of the TRANSFER`
3			`! intrinsic (PR17298).`
4
5			`! test the PR is fixed.`
6
7			`call test1 ()`
8
9			`contains`
10
11			`subroutine test1 ()`
12			`complex(4) :: z = (1.0, 2.0)`
13			`real(4) :: cmp(2), a(4, 4)`
14			`integer(2) :: it(4, 2, 4), jt(32)`
15
16			`! The PR testcase.`
17
18			`cmp = transfer (z, cmp) * 2.0`
19			`if (any (cmp .ne. (/2.0, 4.0/))) call abort ()`
20
21			`end subroutine test1`
22
23			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [transfer_array_intrinsic_1.f90] - Blame information for rev 551