Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/altreturn_3.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-std=gnu" } ! ! Tests the fix for PR30236, which was due to alternate returns ! in generic interfaces causing a segfault. They now work ! correctly. ! ! Contributed by Brooks Moses <brooks@gcc.gnu.org> ! module arswitch implicit none interface gen module procedure with module procedure without end interface contains subroutine with(i,*) integer i if (i>0) then i = -1 return 1 else i = -2 return end if end subroutine subroutine without() return end subroutine end module program test use arswitch implicit none integer :: i = 0 call gen (i, *10) if (i /= -2) STOP 1 i = 2 call gen (i, *20) 10 continue STOP 2 20 continue if (i /= -1) STOP 3 end