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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR33162 INTRINSIC functions as ACTUAL argument
3
! Test case adapted from PR by Jerry DeLisle 
4
module m
5
implicit none
6
contains
7
  subroutine sub(a)
8
    optional :: a
9
    character(25) :: temp
10
    interface
11
      function a(x)
12
        real(kind=8):: a
13
        real(kind=8):: x
14
        intent(in) :: x
15
      end function a
16
    end interface
17
    if(present(a)) then
18
      write(temp,'(f16.10)')a(4.0d0)
19
      if (trim(temp) /= '   -0.6536436209') call abort
20
    endif
21
  end subroutine sub
22
end module m
23
 
24
use m
25
implicit none
26
intrinsic dcos
27
call sub()
28
call sub(dcos)
29
end
30
 
31
! { dg-final { cleanup-modules "m" } }
32
 

powered by: WebSVN 2.1.0

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