maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Semantics/resolve79.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

57 lines
2.0 KiB
Fortran
Raw Normal View History

[Flang] Ported test_errors.sh to Python To enable Flang testing on Windows, shell scripts have to be ported to Python. In this patch the "test_errors.sh" script is ported to python ("test_errors.py"). The RUN line of existing tests was changed to make use of the python script. Used python regex in place of awk/sed. Reviewed By: Meinersbur Differential Revision: https://reviews.llvm.org/D107575
2021-09-06 16:19:20 +08:00
! RUN: %python %S/test_errors.py %s %flang_fc1
[flang] Changes to enforce constraints C727 to C730 and most constraints related to attributes The full list of constraints is C727, C728, C729, C730, C743, C755, C759, C778, and C1543. I added a function to tools.cpp to check to see if a symbol name is the name of an intrinsic type. The biggest change was to resolve-names.cpp to check to see if attributes were either duplicated or in conflict with each other. I changed all locations where attributes were set to check for duplicates or conflicts. I also added tests for all checks and annotated the tests and code with the numbers of the constraints being tested/checked. Original-commit: flang-compiler/f18@3f30e8a61e605b9ca6a67791469053286ae563b2 Reviewed-on: https://github.com/flang-compiler/f18/pull/1084
2020-03-20 11:07:01 +08:00
module m
! C755 The same proc-component-attr-spec shall not appear more than once in a
! given proc-component-def-stmt.
! C759 PASS and NOPASS shall not both appear in the same
! proc-component-attr-spec-list.
!
! R741 proc-component-def-stmt ->
! PROCEDURE ( [proc-interface] ) , proc-component-attr-spec-list
! :: proc-decl-list
! proc-component-attr-spec values are:
! PUBLIC, PRIVATE, NOPASS, PASS, POINTER
type :: procComponentType
!WARNING: Attribute 'PUBLIC' cannot be used more than once
procedure(publicProc), public, pointer, public :: publicField
!WARNING: Attribute 'PRIVATE' cannot be used more than once
procedure(privateProc), private, pointer, private :: privateField
!WARNING: Attribute 'NOPASS' cannot be used more than once
procedure(nopassProc), nopass, pointer, nopass :: noPassField
!WARNING: Attribute 'PASS' cannot be used more than once
procedure(passProc), pass, pointer, pass :: passField
!ERROR: Attributes 'PASS' and 'NOPASS' conflict with each other
procedure(passNopassProc), pass, pointer, nopass :: passNopassField
!WARNING: Attribute 'POINTER' cannot be used more than once
procedure(pointerProc), pointer, public, pointer :: pointerField
[flang] Constraint checks C751 to C760 Summary: Many of these were already implemented, and I just annotated the tests and/or the code. C752 was a simple check to verify that CONTIGUOUS components are arrays with C754 proved to be virtually identical to C750 that I implemented previously. This caused me to remove the distinction between specification expressions for type parameters and bounds expressions that I'd previously created. the POINTER attribute. I also changed the error messages to specify that errors in specification expressions could arise from either bad derived type components or type parameters. In cases where we detect a type param that was not declared, I created a symbol marked as erroneous. That avoids subsequent semantic process for expressions containing the symbol. This change caused me to adjust tests resolve33.f90 and resolve34.f90. Also, I avoided putting out error messages for erroneous type param symbols in `OkToAddComponent()` in resolve-names.cpp and in `EvaluateParameters()`, type.cpp. C756 checks that procedure components have the POINTER attribute. Reviewers: tskeith, klausler, DavidTruby Subscribers: llvm-commits Tags: #llvm, #flang Differential Revision: https://reviews.llvm.org/D79798
2020-05-13 00:53:58 +08:00
!ERROR: Procedure component 'nonpointerfield' must have POINTER attribute
procedure(publicProc), public :: nonpointerField
[flang] Changes to enforce constraints C727 to C730 and most constraints related to attributes The full list of constraints is C727, C728, C729, C730, C743, C755, C759, C778, and C1543. I added a function to tools.cpp to check to see if a symbol name is the name of an intrinsic type. The biggest change was to resolve-names.cpp to check to see if attributes were either duplicated or in conflict with each other. I changed all locations where attributes were set to check for duplicates or conflicts. I also added tests for all checks and annotated the tests and code with the numbers of the constraints being tested/checked. Original-commit: flang-compiler/f18@3f30e8a61e605b9ca6a67791469053286ae563b2 Reviewed-on: https://github.com/flang-compiler/f18/pull/1084
2020-03-20 11:07:01 +08:00
contains
procedure :: noPassProc
procedure :: passProc
procedure :: passNopassProc
procedure :: publicProc
procedure :: privateProc
end type procComponentType
contains
subroutine publicProc(arg)
class(procComponentType) :: arg
end
subroutine privateProc(arg)
class(procComponentType) :: arg
end
subroutine noPassProc(arg)
class(procComponentType) :: arg
end
subroutine passProc(arg)
class(procComponentType) :: arg
end
subroutine passNopassProc(arg)
class(procComponentType) :: arg
end
subroutine pointerProc(arg)
class(procComponentType) :: arg
end
end module m