Subversion Repositories openrisc

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

!

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