10 lines
363 B
Fortran
10 lines
363 B
Fortran
! 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
|