Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/altreturn_5.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 "-std=gnu" } ! ! Tests the fix for PR31483, in which dummy argument procedures ! produced an ICE if they had an alternate return. ! ! Contributed by Mathias Fröhlich <M.Froehlich@science-computing.de> SUBROUTINE R (i, *, *) INTEGER i RETURN i END SUBROUTINE PHLOAD (READER, i, res) IMPLICIT NONE EXTERNAL READER integer i character(3) res CALL READER (i, *1, *2) 1 res = "one" return 2 res = "two" return END EXTERNAL R character(3) res call PHLOAD (R, 1, res) if (res .ne. "one") call abort () CALL PHLOAD (R, 2, res) if (res .ne. "two") call abort () END