17 lines · plain
1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2! Check warning on multiple SAVE attribute specifications3subroutine saves4 save x5 save y6 !CHECK: SAVE attribute was already specified on 'y'7 integer, save :: y8 integer, save :: z9 !CHECK: SAVE attribute was already specified on 'x'10 !CHECK: SAVE attribute was already specified on 'z'11 save x,z12 save :: p13 procedure() :: p14 !CHECK-NOT: SAVE attribute was already specified on 'p'15 pointer :: p16end17