| ! { dg-do run } | |
| ! | |
| ! PR fortran/41872 | |
| ! | |
| ! Allocatable scalars with SAVE | |
| ! | |
| program test | |
| implicit none | |
| call sub (0) | |
| call sub (1) | |
| call sub (2) | |
| contains | |
| subroutine sub (no) | |
| integer, intent(in) :: no | |
| integer, allocatable, save :: a | |
| if (no == 0) then | |
| if (allocated (a)) STOP 1 | |
| allocate (a) | |
| else if (no == 1) then | |
| if (.not. allocated (a)) STOP 2 | |
| deallocate (a) | |
| else | |
| if (allocated (a)) STOP 3 | |
| end if | |
| end subroutine sub | |
| end program test |