[flang] prep for review
authorpeter klausler <pklausler@nvidia.com>
Wed, 27 Feb 2019 00:12:10 +0000 (16:12 -0800)
committerpeter klausler <pklausler@nvidia.com>
Wed, 27 Feb 2019 00:22:43 +0000 (16:22 -0800)
Original-commit: flang-compiler/f18@794e6a42ec618702b43a21798782c8824d3ba499
Reviewed-on: https://github.com/flang-compiler/f18/pull/304
Tree-same-pre-rewrite: false

flang/test/semantics/resolve45.f90 [deleted file]

diff --git a/flang/test/semantics/resolve45.f90 b/flang/test/semantics/resolve45.f90
deleted file mode 100644 (file)
index 0084948..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-! Copyright (c) 2019, NVIDIA CORPORATION.  All rights reserved.
-!
-! Licensed under the Apache License, Version 2.0 (the "License");
-! you may not use this file except in compliance with the License.
-! You may obtain a copy of the License at
-!
-!     http://www.apache.org/licenses/LICENSE-2.0
-!
-! Unless required by applicable law or agreed to in writing, software
-! distributed under the License is distributed on an "AS IS" BASIS,
-! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-! See the License for the specific language governing permissions and
-! limitations under the License.
-
-function f1(x, y)
-  integer x
-  !ERROR: SAVE attribute may not be applied to dummy argument 'x'
-  !ERROR: SAVE attribute may not be applied to dummy argument 'y'
-  save x,y
-  integer y
-  !ERROR: SAVE attribute may not be applied to function result 'f1'
-  save f1
-end
-
-function f2(x, y)
-  !ERROR: SAVE attribute may not be applied to function result 'f2'
-  real, save :: f2
-  !ERROR: SAVE attribute may not be applied to dummy argument 'x'
-  complex, save :: x
-  allocatable :: y
-  !ERROR: SAVE attribute may not be applied to dummy argument 'y'
-  integer, save :: y
-end
-
-subroutine s3(x)
-  !ERROR: SAVE attribute may not be applied to dummy argument 'x'
-  procedure(integer), pointer, save :: x
-  !ERROR: Procedure 'y' with SAVE attribute must also have POINTER attribute
-  procedure(integer), save :: y
-end
-
-subroutine s4
-  !ERROR: Explicit SAVE of 'z' is redundant due to global SAVE statement
-  save z
-  save
-  procedure(integer), pointer :: x
-  !ERROR: Explicit SAVE of 'x' is redundant due to global SAVE statement
-  save :: x
-  !ERROR: Explicit SAVE of 'y' is redundant due to global SAVE statement
-  integer, save :: y
-end
-
-subroutine s5
-  implicit none
-  integer x
-  block
-    !ERROR: No explicit type declared for 'x'
-    save x
-  end block
-end
-
-subroutine s6
-  save x
-  save y
-  !ERROR: SAVE attribute was already specified on 'y'
-  integer, save :: y
-  integer, save :: z
-  !ERROR: SAVE attribute was already specified on 'x'
-  !ERROR: SAVE attribute was already specified on 'z'
-  save x,z
-end
-
-subroutine s7
-  !ERROR: 'x' appears as a COMMON block in a SAVE statement but not in a COMMON statement
-  save /x/
-end