1 ! RUN: %flang_fc1 -fsyntax-only -fno-automatic %s 2>&1 | FileCheck %s --allow-empty
2 ! Checks that -fno-automatic implies the SAVE attribute.
3 ! This same subroutine appears in test save01.f90 where it is an
4 ! error case due to the absence of both SAVE and -fno-automatic.
8 integer, pointer :: p
=> t