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 end
  13