22 lines
550 B
Fortran
22 lines
550 B
Fortran
! { dg-do compile }
|
|
! Tests patch for PR23091, in which autmatic objects caused
|
|
! an ICE if they were given the SAVE attribute.
|
|
!
|
|
! Contributed by Valera Veryazov <valera.veryazov@teokem.lu.se>
|
|
!
|
|
Subroutine My(n1)
|
|
integer :: myArray(n1)
|
|
character(n1) :: ch
|
|
save ! OK because only allowed objects are saved globally.
|
|
call xxx(myArray, ch)
|
|
return
|
|
end
|
|
|
|
Subroutine Thy(n1)
|
|
integer, save :: myArray(n1) ! { dg-error "SAVE attribute" }
|
|
character(n1), save :: ch ! { dg-error "SAVE attribute" }
|
|
call xxx(myArray, ch)
|
|
return
|
|
end
|
|
|