1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s 2! Check warning on multiple SAVE attribute specifications 3subroutine saves 4 save x 5 save y 6 !CHECK: SAVE attribute was already specified on 'y' 7 integer, save :: y 8 integer, save :: z 9 !CHECK: SAVE attribute was already specified on 'x' 10 !CHECK: SAVE attribute was already specified on 'z' 11 save x,z 12 save :: p 13 procedure() :: p 14 !CHECK-NOT: SAVE attribute was already specified on 'p' 15 pointer :: p 16end 17