| ! { dg-do compile } | |
| ! { dg-options -Os } | |
| ! PR 78865 - this used to ICE. | |
| program p | |
| call sub (3) | |
| end | |
| subroutine sub (x) | |
| integer :: x, i, n | |
| do i = 1, x | |
| if ( n /= 0 ) stop | |
| call sub2 | |
| end do | |
| print *, x, n | |
| end | |
| subroutine sub2 | |
| call sub (*99) ! { dg-error "Unexpected alternate return specifier" } | |
| call sub (99.) ! { dg-error "Type mismatch in argument" } | |
| 99 stop | |
| end |