! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s | |
! Check warning on multiple SAVE attribute specifications | |
subroutine saves | |
save x | |
save y | |
!CHECK: SAVE attribute was already specified on 'y' | |
integer, save :: y | |
integer, save :: z | |
!CHECK: SAVE attribute was already specified on 'x' | |
!CHECK: SAVE attribute was already specified on 'z' | |
save x,z | |
save :: p | |
procedure() :: p | |
!CHECK-NOT: SAVE attribute was already specified on 'p' | |
pointer :: p | |
end |