10 lines · plain
1! RUN: %flang_fc1 -fsyntax-only -fno-automatic %s 2>&1 | FileCheck %s --allow-empty2! Checks that -fno-automatic implies the SAVE attribute.3! This same subroutine appears in test save01.f90 where it is an4! error case due to the absence of both SAVE and -fno-automatic.5subroutine foo6 integer, target :: t7 !CHECK-NOT: error:8 integer, pointer :: p => t9end10