| ! { dg-do run } | |
| ! | |
| ! Test contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
| integer :: cnt | |
| cnt = 0 | |
| call sub() | |
| if (cnt /= 5) stop 1 | |
| contains | |
| recursive subroutine sub() | |
| save | |
| logical :: first = .true. | |
| integer :: i | |
| cnt = cnt + 1 | |
| if (first) then | |
| first = .false. | |
| i = 1 | |
| end if | |
| print *, "Hello", i | |
| i = i + 1 | |
| if (i <= 5) call sub() | |
| end subroutine | |
| end | |