2 ! This checks the correct functioning of derived types with the SAVE
3 ! attribute and allocatable components - PR31163
5 ! Contributed by Salvatore Filippone <salvatore.filippone@uniroma2.it>
10 integer, allocatable :: mv(:)
17 subroutine bar_foo_ab(info)
19 integer, intent(out) :: info
20 Type(foo_type), save :: f_a
22 if (allocated(f_a%mv)) then
25 allocate(f_a%mv(10),stat=info)
30 end subroutine bar_foo_ab
41 if (info .ne. 0) call abort ()
43 if (info .ne. 10) call abort ()
47 ! { dg-final { cleanup-modules "bar_mod" } }