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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR 22607: PURE/ELEMENTAL return-by-reference functions
3
program main
4
  implicit none
5
  character(2), dimension(2) :: a, b
6
  a = 'ok'
7
  b = fun(a)
8
  if (.not.all(b == 'ok')) call abort()
9
contains
10
  elemental function fun(a)
11
    character(*), intent(in) :: a
12
    character(len(a)) :: fun
13
    fun = a
14
  end function fun
15
end program main

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.