Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/f2c_9.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-ff2c" } ! PR 34868 function f(a) result(res) implicit none real(8), intent(in) :: a(:) complex(8) :: res res = cmplx(sum(a),product(a),8) end function f function g(a) implicit none real(8), intent(in) :: a(:) complex(8) :: g g = cmplx(sum(a),product(a),8) end function g program test real(8) :: a(1,5) complex(8) :: c integer :: i interface complex(8) function f(a) real(8), intent(in) :: a(:) end function f function g(a) result(res) real(8), intent(in) :: a(:) complex(8) :: res end function g end interface do i = 1, 5 a(1,i) = sqrt(real(i,kind(a))) end do c = f(a(1,:)) call check (real(c), sum(a)) call check (imag(c), product(a)) c = g(a(1,:)) call check (real(c), sum(a)) call check (imag(c), product(a)) contains subroutine check (a, b) real(8), intent(in) :: a, b if (abs(a - b) > 1.e-10_8) call abort end subroutine check end program test