flang/test/Semantics/resolve107.f90

   1 ! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
   2 ! Check warning on multiple SAVE attribute specifications
   3 subroutine 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
  16 end