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/call08.f90

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

49 lines
1.5 KiB
Fortran
Raw Normal View History

[flang][NFC] Simplify semantics test scripts There were several different ways of handling the option to f18 to find predefined modules: - test_errors.sh was created by cmake substituting FLANG_INTRINSIC_MODULES_DIR into test_errors.sh.in - some tests used the flang script which has the option built it - some tests used %f18_with_includes which was replaced by the path to f18 plus the -I option - some included -I../../include/flang in their run command To make this more consistent, change %f18 to include the -intrinsic-module-directory option and use it everywhere, including to replace %flang and %f18_with_includes. This requires changing all of the invocations of the test scripts to put %f18 at the end so that it can expand to more than one argument. This eliminates the need to generate test_errors.sh which means we don't need flang/test/Semantics/CMakeLists.txt or the %B substitution. That makes the test_errors.sh command like the others, replacing %B/test/Semantics/test_errors.sh with %S/test_errors.sh. Also remove the OPTIONS: functionality as custom options can be included in the RUN: command. And remove -I/../../include/flang as that is now always included. Differential Revision: https://reviews.llvm.org/D79634
2020-05-12 02:38:53 +08:00
! RUN: %S/test_errors.sh %s %t %f18
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
! Test 15.5.2.8 coarray dummy arguments
module m
real :: c1[*]
real, volatile :: c2[*]
contains
subroutine s01(x)
real :: x[*]
end subroutine
subroutine s02(x)
real, volatile :: x[*]
end subroutine
subroutine s03(x)
real, contiguous :: x(:)[*]
end subroutine
subroutine s04(x)
real :: x(*)[*]
end subroutine
[flang] Implement folding of INDEX, SCAN, & VERIFY Fold LEN_TRIM Fold REPEAT Fix gcc build warning Fix two tests that had illegal pointers to coarrays Original-commit: flang-compiler/f18@36769996fa9559b84dda59f3f9eceee9d2269e74 Reviewed-on: https://github.com/flang-compiler/f18/pull/910
2020-01-07 07:29:53 +08:00
subroutine test(x,c3,c4)
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
real :: scalar
real :: x(:)[*]
[flang] Implement folding of INDEX, SCAN, & VERIFY Fold LEN_TRIM Fold REPEAT Fix gcc build warning Fix two tests that had illegal pointers to coarrays Original-commit: flang-compiler/f18@36769996fa9559b84dda59f3f9eceee9d2269e74 Reviewed-on: https://github.com/flang-compiler/f18/pull/910
2020-01-07 07:29:53 +08:00
real, intent(in) :: c3(:)[*]
real, contiguous, intent(in) :: c4(:)[*]
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
call s01(c1) ! ok
call s02(c2) ! ok
call s03(c4) ! ok
call s04(c4) ! ok
[flang] Enable and pass call08.f90 Refine a check Original-commit: flang-compiler/f18@bb96c195d4d6825041912d8ab0b5c5fb7f9418e2 Reviewed-on: https://github.com/flang-compiler/f18/pull/812
2019-11-05 06:06:52 +08:00
!ERROR: Actual argument associated with coarray dummy argument 'x=' must be a coarray
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
call s01(scalar)
[flang] Enable and pass call08.f90 Refine a check Original-commit: flang-compiler/f18@bb96c195d4d6825041912d8ab0b5c5fb7f9418e2 Reviewed-on: https://github.com/flang-compiler/f18/pull/812
2019-11-05 06:06:52 +08:00
!ERROR: VOLATILE coarray may not be associated with non-VOLATILE coarray dummy argument 'x='
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
call s01(c2)
[flang] Enable and pass call08.f90 Refine a check Original-commit: flang-compiler/f18@bb96c195d4d6825041912d8ab0b5c5fb7f9418e2 Reviewed-on: https://github.com/flang-compiler/f18/pull/812
2019-11-05 06:06:52 +08:00
!ERROR: non-VOLATILE coarray may not be associated with VOLATILE coarray dummy argument 'x='
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
call s02(c1)
[flang] Enable and pass call08.f90 Refine a check Original-commit: flang-compiler/f18@bb96c195d4d6825041912d8ab0b5c5fb7f9418e2 Reviewed-on: https://github.com/flang-compiler/f18/pull/812
2019-11-05 06:06:52 +08:00
!ERROR: Actual argument associated with a CONTIGUOUS coarray dummy argument 'x=' must be simply contiguous
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
call s03(c3)
[flang] Enable and pass call08.f90 Refine a check Original-commit: flang-compiler/f18@bb96c195d4d6825041912d8ab0b5c5fb7f9418e2 Reviewed-on: https://github.com/flang-compiler/f18/pull/812
2019-11-05 06:06:52 +08:00
!ERROR: Actual argument associated with a CONTIGUOUS coarray dummy argument 'x=' must be simply contiguous
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
call s03(x)
[flang] Enable and pass call08.f90 Refine a check Original-commit: flang-compiler/f18@bb96c195d4d6825041912d8ab0b5c5fb7f9418e2 Reviewed-on: https://github.com/flang-compiler/f18/pull/812
2019-11-05 06:06:52 +08:00
!ERROR: Actual argument associated with coarray dummy argument 'x=' (not assumed shape or rank) must be simply contiguous
[flang] Update preprocessing document, commentary Extend documentation on preprocessing IsSimplyContiguous basic skeleton Apply suggested improvements to mod-file.cc Checks for new call13.f90 (15.4.2.2 explicit interfaces) Implement checking for procedures that can be called via an implicit interface Argument checking, test fixing Better argument checking Better derived type compatibility checking Treat externals as if implicitly interfaced Extend IEEE_EXCEPTIONS module so tests still pass with argument checking SAME_TYPE_AS and EXTENDS_TYPE_OF intrinsic inquiry functions Define interfaces for most intrinsic subroutines Better PASS arguments More with PASS() argument Prep for review address comments fix comment Remove formatted expression from specification expression error message per review more review comments Original-commit: flang-compiler/f18@3cca775da9302e3a2acec4a34800cd7666899b5f Reviewed-on: https://github.com/flang-compiler/f18/pull/776
2019-09-17 07:58:13 +08:00
call s04(c3)
[flang] Enable and pass call08.f90 Refine a check Original-commit: flang-compiler/f18@bb96c195d4d6825041912d8ab0b5c5fb7f9418e2 Reviewed-on: https://github.com/flang-compiler/f18/pull/812
2019-11-05 06:06:52 +08:00
!ERROR: Actual argument associated with coarray dummy argument 'x=' (not assumed shape or rank) must be simply contiguous
[flang] call08.f90 Original-commit: flang-compiler/f18@2bda489d4517a5b66e912a728e340ba0db5d3068 Reviewed-on: https://github.com/flang-compiler/f18/pull/711 Tree-same-pre-rewrite: false
2019-09-05 07:06:04 +08:00
call s04(x)
end subroutine
end module