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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR40847 - an error in gfc_resolve_transfer caused the character length
! of 'mold' to be set incorrectly.
!
! Contributed by Joost VandeVondele 
!
program test_elemental
 
if (any (transfer_size((/0.,0./),(/'a','b'/)) .ne. [4 ,4])) call abort
 
contains
 
   elemental function transfer_size (source, mold)
     real, intent(in)         :: source
     character(*), intent(in) :: mold
     integer                  :: transfer_size
     transfer_size = SIZE(TRANSFER(source, (/mold/)))
     return
   end function transfer_size
 
end program test_elemental

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR40847 - an error in gfc_resolve_transfer caused the character length`
3			`! of 'mold' to be set incorrectly.`
4			`!`
5			`! Contributed by Joost VandeVondele`
6			`!`
7			`program test_elemental`
8
9			`if (any (transfer_size((/0.,0./),(/'a','b'/)) .ne. [4 ,4])) call abort`
10
11			`contains`
12
13			`elemental function transfer_size (source, mold)`
14			`real, intent(in) :: source`
15			`character(*), intent(in) :: mold`
16			`integer :: transfer_size`
17			`transfer_size = SIZE(TRANSFER(source, (/mold/)))`
18			`return`
19			`end function transfer_size`
20
21			`end program test_elemental`

Browse

Tools

Subversion Repositories openrisc

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