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