From 92b0c8412c7ebb2c9fac31e7ef56a1191498696c Mon Sep 17 00:00:00 2001 From: peter klausler Date: Tue, 26 Feb 2019 16:12:10 -0800 Subject: [PATCH] [flang] prep for review 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 | 76 -------------------------------------- 1 file changed, 76 deletions(-) delete mode 100644 flang/test/semantics/resolve45.f90 diff --git a/flang/test/semantics/resolve45.f90 b/flang/test/semantics/resolve45.f90 deleted file mode 100644 index 0084948..0000000 --- a/flang/test/semantics/resolve45.f90 +++ /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 -- 2.7.4