1! { dg-do compile }
2! Tests patch for PR23091, in which autmatic objects caused
3! an ICE if they were given the SAVE attribute.
4!
5! Contributed by Valera Veryazov  <valera.veryazov@teokem.lu.se>
6!
7Subroutine My(n1)
8  integer :: myArray(n1)
9  character(n1) :: ch
10  save      ! OK because only allowed objects are saved globally.
11  call xxx(myArray, ch)
12  return
13  end
14
15Subroutine Thy(n1)
16  integer, save :: myArray(n1) ! { dg-error "SAVE attribute" }
17  character(n1), save :: ch ! { dg-error "SAVE attribute" }
18  call xxx(myArray, ch)
19  return
20  end
21
22