saved_automatic_1.f90   [plain text]

! { 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