Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/altreturn_10.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
rev | line source |
---|---|
145 | 1 ! { dg-do compile } |
2 ! { dg-options -Os } | |
3 ! PR 78865 - this used to ICE. | |
4 program p | |
5 call sub (3) | |
6 end | |
7 subroutine sub (x) | |
8 integer :: x, i, n | |
9 do i = 1, x | |
10 if ( n /= 0 ) stop | |
11 call sub2 | |
12 end do | |
13 print *, x, n | |
14 end | |
15 subroutine sub2 | |
16 call sub (*99) ! { dg-error "Unexpected alternate return specifier" } | |
17 call sub (99.) ! { dg-error "Type mismatch in argument" } | |
18 99 stop | |
19 end |