Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/entry_9.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! Check whether RESULT of ENTRY defaults to entry-name. ! PR fortran/30873 ! ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> ! MODULE M1 CONTAINS FUNCTION F2(K) INTEGER :: F2,K F2=E1(K) END FUNCTION F2 RECURSIVE FUNCTION F1(I) INTEGER :: F1,I,E1 F1=F2(I) RETURN ENTRY E1(I) E1=-I RETURN END FUNCTION F1 END MODULE M1 program main use m1 if (E1(5) /= -5) STOP 1 if (F2(4) /= -4) STOP 2 if (F1(1) /= -1) STOP 3 end program main