2 ! { dg-options "-fall-intrinsics -std=f95" }
6 integer foo1, foo2, foo3, foo4
23 integer function foo1 ()
26 save ! { dg-error "Blanket SAVE" }
32 integer function foo2 ()
35 save j ! { dg-error "Duplicate SAVE" }
41 integer function foo3 ()
44 save j ! { dg-error "SAVE statement" }
50 integer function foo4 ()
51 integer j ! { dg-error "Duplicate SAVE" }