This is an archive of the discontinued LLVM Phabricator instance.

Differential D107575

[Flang] Ported test_errors.sh to Python
ClosedPublic

Authored by ijan1 on Aug 5 2021, 8:21 AM.

Details

Reviewers
Meinersbur
awarzynski
Leporacanthicus
kiranchandramohan
jdoerfert
sscalpone
tskeith
clementval
Commits
rG6c1ac141d3c9: [Flang] Ported test_errors.sh to Python
Summary

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.

Diff Detail

Unit TestsFailed

TimeTest
160 msx64 windows > Flang.Semantics::resolve67.f90

Event Timeline

ijan1 created this revision.Aug 5 2021, 8:21 AM
Herald added a reviewer: clementval. · View Herald TranscriptAug 5 2021, 8:22 AM
ijan1 requested review of this revision.Aug 5 2021, 8:22 AM
Herald added a project: Restricted Project. · View Herald TranscriptAug 5 2021, 8:22 AM
ijan1 edited the summary of this revision. (Show Details)Aug 5 2021, 8:31 AM
ijan1 edited the summary of this revision. (Show Details)Aug 5 2021, 8:38 AM
ijan1 edited the summary of this revision. (Show Details)
Harbormaster completed remote builds in B118174: Diff 364494.Aug 5 2021, 8:47 AM
Meinersbur added a comment.Aug 5 2021, 10:12 AM

There seems to be a problem in how import common not finding common.py in a sibling directory.

vsnprintf is named _vsnprintf by Microsoft. According to their docs, it should also be available as vsnprintf with

#include <stdio.h>
#include <stdarg.h>

but even Google test uses

#if GTEST_OS_WINDOWS
# define vsnprintf _vsnprintf
#endif  // GTEST_OS_WINDOWS
Leporacanthicus added a comment.Aug 5 2021, 11:22 AM
In D107575#2929026, @Meinersbur wrote:

There seems to be a problem in how import common not finding common.py in a sibling directory.

vsnprintf is named _vsnprintf by Microsoft. According to their docs, it should also be available as vsnprintf with

#include <stdio.h>
#include <stdarg.h>

but even Google test uses

#if GTEST_OS_WINDOWS
# define vsnprintf _vsnprintf
#endif  // GTEST_OS_WINDOWS

That is only part of the problem - the code compiles without errors with vsnprintf in place - the Fortran compiler uses positional arguments (like printf("%2$s, %1$s!\n", "World", "Hello") that isn't supported by the normal MS printf implementation, you have to call _vsprintf_p.

Ivan is going to push a patch to fix this tomorrow (it's essentially the same idea, but #define vsnprintf _vsnprintf_p. Without that patch, messages come out with $s and $d in the error message, rather than the intended strings and numbers intended.

Me and Ivan spent some time figuring this out today. Why do compilers/libraries have to do these sort of things their own way? ;)

ijan1 retitled this revision from Ported test_errors.sh to Python to [Flang] Ported test_errors.sh to Python.Aug 5 2021, 11:53 AM
ijan1 edited the summary of this revision. (Show Details)
ijan1 added a comment.Aug 5 2021, 11:55 AM
In D107575#2929026, @Meinersbur wrote:

There seems to be a problem in how import common not finding common.py in a sibling directory.

common.py is just included in D107041 but not on here. I should've operated on the safe side and also added it here.

Meinersbur added a comment.Aug 5 2021, 1:29 PM
In D107575#2929251, @Leporacanthicus wrote:

Me and Ivan spent some time figuring this out today. Why do compilers/libraries have to do these sort of things their own way? ;)

Usually the underscore exists because these function were introduced by POSIX. Since Windows is not POSIX, those were originally not defined. Microsoft implemented most of them later anyway, but since code may have used their names already (e.g. to implement them because they were missing), they added the underscore to not clash with existing code. See e.g. https://docs.microsoft.com/en-us/cpp/error-messages/compiler-warnings/compiler-warning-level-3-c4996?view=msvc-160#posix-function-names

vsnprintf was standardized only "recently" in C++11 and C99(*). That is, it should work on version of msvc that support C++11 (it does for me), but the dollar-sign again is a POSIX extension. I suggest not to rely on it.

(*) Microsoft only started implementing strategic C99 features in VS2017, generally considers it C++-only compiler.

ijan1 mentioned this in D107654: [Flang] Fix error messages on Windows..Aug 6 2021, 8:47 AM
ijan1 edited the summary of this revision. (Show Details)
Meinersbur added a comment.Aug 10 2021, 6:17 PM

The missing common.py can be resolved by rebasing this patch to rGeabae4cf57b9e7429db27fdfd3016d31901fa2ea.

Together with D107654, the three tests fail as described in the summary. Those two also on UNIX:

Failed Tests (3):
  Flang :: Semantics/resolve12.f90
  Flang :: Semantics/resolve26.f90
awarzynski added inline comments.Aug 11 2021, 3:24 AM
flang/test/Semantics/test_errors.py
2

#! /usr/bin/env python3

5

This script does not use FLANG_FC1 at all, so I would delete it. Could you instead document what arguments this script takes?

ijan1 updated this revision to Diff 365971.Aug 12 2021, 5:01 AM
ijan1 marked 2 inline comments as done.

"resolve12.f90" and "resolve26.f90" have been fixed. Addressed feedback from Andrzej.

Harbormaster completed remote builds in B119238: Diff 365971.Aug 12 2021, 6:09 AM
Meinersbur added a parent revision: D107654: [Flang] Fix error messages on Windows..Aug 12 2021, 6:34 AM
MatsPetersson mentioned this in rG35249cb7b1e8: [Flang] Fix error messages on Windows..Aug 12 2021, 10:51 AM
Meinersbur added a comment.Aug 12 2021, 11:04 AM

Only resolve67.f90 still failing. What is the nondeterministic function?

kiranchandramohan added a comment.Aug 12 2021, 1:15 PM
In D107575#2941859, @Meinersbur wrote:

Only resolve67.f90 still failing. What is the nondeterministic function?

I think it is the following condition from CheckHelper::CheckDefinedOperator in lib/Semantics/check-declarations.cpp. I suspect this happens due to the fact that operands of a bitwise operator can be evaluated in any order. Since there are errors for both the operands (invocations of CheckDefinedOperatorArg on arguments 0 and 1), the order in which the error is printed depends on the evaluation order.

} else if (!CheckDefinedOperatorArg(opName, specific, proc, 0) |
    !CheckDefinedOperatorArg(opName, specific, proc, 1)) {
  return false; // error was reported
}
Meinersbur added a comment.Aug 13 2021, 11:07 AM

The evaluation order is indeed undefined for operators except || and &&. I suggest to store the results in a variables. Them being part of a if-else will require some restructuring.

ijan1 added a comment.Aug 17 2021, 1:57 AM
In D107575#2944131, @Meinersbur wrote:

The evaluation order is indeed undefined for operators except || and &&. I suggest to store the results in a variables. Them being part of a if-else will require some restructuring.

I will have a patch fixing this issue soon.

ijan1 updated this revision to Diff 367219.Aug 18 2021, 8:19 AM

Rebased and added support for 3 new tests.

Harbormaster completed remote builds in B120134: Diff 367219.Aug 18 2021, 8:44 AM
kiranchandramohan edited the summary of this revision. (Show Details)Aug 20 2021, 6:28 AM
ijan1 mentioned this in D108623: [flang] Fix non-deterministic line output function.Aug 24 2021, 4:53 AM
ijan1 mentioned this in rGe962718dd5fc: [flang] Fix non-deterministic line output function.Sep 2 2021, 8:14 AM
ijan1 updated this revision to Diff 370512.Sep 3 2021, 2:22 AM

Rebased to add support for new tests and also see if "resolve67.f90" passes the test.

Harbormaster completed remote builds in B122466: Diff 370512.Sep 3 2021, 3:04 AM
ijan1 updated this revision to Diff 370567.Sep 3 2021, 6:19 AM

Rebased to stop a Clang test failure from some other change in main.

ijan1 edited the summary of this revision. (Show Details)Sep 3 2021, 6:25 AM
Harbormaster completed remote builds in B122509: Diff 370567.Sep 3 2021, 6:45 AM
Meinersbur accepted this revision.Sep 4 2021, 4:41 PM

LGTM

I am pretty sure the the Clang SVE tests are unrelated.

This revision is now accepted and ready to land.Sep 4 2021, 4:41 PM
This revision was landed with ongoing or failed builds.Sep 6 2021, 1:20 AM
Closed by commit rG6c1ac141d3c9: [Flang] Ported test_errors.sh to Python (authored by ijan1). · Explain Why
This revision was automatically updated to reflect the committed changes.
ijan1 added a commit: rG6c1ac141d3c9: [Flang] Ported test_errors.sh to Python.

Revision Contents

PathSize
flang/
test/
Semantics/
OpenACC/
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
3 lines
80 lines
3 lines

Diff 365971

flang/test/Semantics/OpenACC/acc-atomic-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.12 Atomic ! 2.12 Atomic
program openacc_atomic_validity program openacc_atomic_validity
implicit none implicit none
Show All 33 Lines

flang/test/Semantics/OpenACC/acc-branch.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC restruction in branch in and out of some construct ! Check OpenACC restruction in branch in and out of some construct
! !
program openacc_clause_validity program openacc_clause_validity
implicit none implicit none
integer :: i, j, k integer :: i, j, k
▲ Show 20 Lines • Show All 163 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-cache-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.10 Cache ! 2.10 Cache
program openacc_cache_validity program openacc_cache_validity
implicit none implicit none
Show All 34 Lines

flang/test/Semantics/OpenACC/acc-canonicalization-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC canonalization validity for the construct defined below: ! Check OpenACC canonalization validity for the construct defined below:
! 2.9 Loop ! 2.9 Loop
! 2.11 Parallel Loop ! 2.11 Parallel Loop
! 2.11 Kernels Loop ! 2.11 Kernels Loop
! 2.11 Serial Loop ! 2.11 Serial Loop
program openacc_clause_validity program openacc_clause_validity
▲ Show 20 Lines • Show All 117 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-data.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.6.5 Data ! 2.6.5 Data
! 2.14.6 Enter Data ! 2.14.6 Enter Data
! 2.14.7 Exit Data ! 2.14.7 Exit Data
program openacc_data_validity program openacc_data_validity
▲ Show 20 Lines • Show All 166 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-declare-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.13 Declare ! 2.13 Declare
module openacc_declare_validity module openacc_declare_validity
implicit none implicit none
▲ Show 20 Lines • Show All 48 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-host-data.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.8 host_data ! 2.8 host_data
program openacc_host_data_validity program openacc_host_data_validity
implicit none implicit none
Show All 32 Lines

flang/test/Semantics/OpenACC/acc-init-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.14.1 Init ! 2.14.1 Init
program openacc_init_validity program openacc_init_validity
implicit none implicit none
▲ Show 20 Lines • Show All 87 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-kernels-loop.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.11 Kernels Loop ! 2.11 Kernels Loop
program openacc_kernels_loop_validity program openacc_kernels_loop_validity
implicit none implicit none
▲ Show 20 Lines • Show All 272 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-kernels.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.5.3 Kernels ! 2.5.3 Kernels
program openacc_kernels_validity program openacc_kernels_validity
implicit none implicit none
▲ Show 20 Lines • Show All 138 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-loop.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.9 Loop ! 2.9 Loop
program openacc_loop_validity program openacc_loop_validity
implicit none implicit none
▲ Show 20 Lines • Show All 244 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-parallel-loop-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.11 Parallel Loop ! 2.11 Parallel Loop
program openacc_parallel_loop_validity program openacc_parallel_loop_validity
implicit none implicit none
▲ Show 20 Lines • Show All 113 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-parallel.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.5.1 Parallel ! 2.5.1 Parallel
program openacc_parallel_validity program openacc_parallel_validity
implicit none implicit none
▲ Show 20 Lines • Show All 132 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-resolve01.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Data-Mapping Attribute Clauses ! Data-Mapping Attribute Clauses
! 2.15.14 default Clause ! 2.15.14 default Clause
subroutine default_none() subroutine default_none()
integer a(3) integer a(3)
A = 1 A = 1
Show All 13 Lines

flang/test/Semantics/OpenACC/acc-resolve02.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
subroutine compute() subroutine compute()
integer :: a(3), c, i integer :: a(3), c, i
a = 1 a = 1
!ERROR: 'c' appears in more than one data-sharing clause on the same OpenACC directive !ERROR: 'c' appears in more than one data-sharing clause on the same OpenACC directive
!$acc parallel firstprivate(c) private(c) !$acc parallel firstprivate(c) private(c)
do i = 1, 3 do i = 1, 3
a(i) = c a(i) = c
end do end do
!$acc end parallel !$acc end parallel
end subroutine compute end subroutine compute
program mm program mm
call compute() call compute()
end end

flang/test/Semantics/OpenACC/acc-routine-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.15.1 routine ! 2.15.1 routine
module openacc_routine_validity module openacc_routine_validity
implicit none implicit none
!$acc routine(sub3) seq !$acc routine(sub3) seq
▲ Show 20 Lines • Show All 70 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-serial-loop.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.11 Serial Loop ! 2.11 Serial Loop
program openacc_serial_loop_validity program openacc_serial_loop_validity
implicit none implicit none
▲ Show 20 Lines • Show All 88 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-serial.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.5.2 Serial ! 2.5.2 Serial
program openacc_serial_validity program openacc_serial_validity
implicit none implicit none
▲ Show 20 Lines • Show All 160 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-set-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.14.3 Set ! 2.14.3 Set
program openacc_clause_validity program openacc_clause_validity
implicit none implicit none
▲ Show 20 Lines • Show All 97 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-shutdown-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.14.2 Shutdown ! 2.14.2 Shutdown
program openacc_shutdown_validity program openacc_shutdown_validity
implicit none implicit none
▲ Show 20 Lines • Show All 87 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-update-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.14.4 Update ! 2.14.4 Update
program openacc_update_validity program openacc_update_validity
implicit none implicit none
▲ Show 20 Lines • Show All 58 Lines • Show Last 20 Lines

flang/test/Semantics/OpenACC/acc-wait-validity.f90

! RUN: %S/../test_errors.sh %s %t %flang -fopenacc ! RUN: %python %S/../test_errors.py %s %t %flang -fopenacc
! REQUIRES: shell
! Check OpenACC clause validity for the following construct and directive: ! Check OpenACC clause validity for the following construct and directive:
! 2.16.13 Wait ! 2.16.13 Wait
program openacc_wait_validity program openacc_wait_validity
implicit none implicit none
Show All 33 Lines

flang/test/Semantics/allocate01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
! Creating a symbol that allocate should accept ! Creating a symbol that allocate should accept
module share module share
real, pointer :: rp real, pointer :: rp
end module share end module share
module m module m
▲ Show 20 Lines • Show All 111 Lines • Show Last 20 Lines

flang/test/Semantics/allocate02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C943_C944(src, src2) subroutine C943_C944(src, src2)
! C943 ! C943
! No alloc-opt shall appear more than once in a given alloc-opt-list. ! No alloc-opt shall appear more than once in a given alloc-opt-list.
character(50) msg character(50) msg
integer stat, stat2 integer stat, stat2
Show All 39 Lines

flang/test/Semantics/allocate03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C933_a(b1, ca3, ca4, cp3, cp3mold, cp4, cp7, cp8, bsrc) subroutine C933_a(b1, ca3, ca4, cp3, cp3mold, cp4, cp7, cp8, bsrc)
! If any allocate-object has a deferred type parameter, is unlimited polymorphic, ! If any allocate-object has a deferred type parameter, is unlimited polymorphic,
! or is of abstract type, either type-spec or source-expr shall appear. ! or is of abstract type, either type-spec or source-expr shall appear.
! Only testing deferred type parameters here. ! Only testing deferred type parameters here.
▲ Show 20 Lines • Show All 94 Lines • Show Last 20 Lines

flang/test/Semantics/allocate04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C933_b(n) subroutine C933_b(n)
! If any allocate-object has a deferred type parameter, is unlimited polymorphic, ! If any allocate-object has a deferred type parameter, is unlimited polymorphic,
! or is of abstract type, either type-spec or source-expr shall appear. ! or is of abstract type, either type-spec or source-expr shall appear.
! only testing unlimited polymorphic and abstract-type here ! only testing unlimited polymorphic and abstract-type here
▲ Show 20 Lines • Show All 70 Lines • Show Last 20 Lines

flang/test/Semantics/allocate05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C934() subroutine C934()
! If type-spec appears, it shall specify a type with which each ! If type-spec appears, it shall specify a type with which each
! allocate-object is type compatible. ! allocate-object is type compatible.
type A type A
▲ Show 20 Lines • Show All 58 Lines • Show Last 20 Lines

flang/test/Semantics/allocate06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C935(l, ac1, ac2, ac3, dc1, dc2, ec1, ec2, aa, ab, ab2, ea, eb, da, db, whatever, something, something_else) subroutine C935(l, ac1, ac2, ac3, dc1, dc2, ec1, ec2, aa, ab, ab2, ea, eb, da, db, whatever, something, something_else)
! A type-param-value in a type-spec shall be an asterisk if and only if each ! A type-param-value in a type-spec shall be an asterisk if and only if each
! allocate-object is a dummy argument for which the corresponding type parameter ! allocate-object is a dummy argument for which the corresponding type parameter
! is assumed. ! is assumed.
▲ Show 20 Lines • Show All 94 Lines • Show Last 20 Lines

flang/test/Semantics/allocate07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C936(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred) subroutine C936(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred)
! If type-spec appears, the kind type parameter values of each ! If type-spec appears, the kind type parameter values of each
! allocate-object shall be the same as the corresponding type ! allocate-object shall be the same as the corresponding type
! parameter values of the type-spec. ! parameter values of the type-spec.
real(kind=4), allocatable :: x1, x2(:) real(kind=4), allocatable :: x1, x2(:)
▲ Show 20 Lines • Show All 84 Lines • Show Last 20 Lines

flang/test/Semantics/allocate08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C945_a(srca, srcb, srcc, src_complex, src_logical, & subroutine C945_a(srca, srcb, srcc, src_complex, src_logical, &
srca2, srcb2, srcc2, src_complex2, srcx, srcx2) srca2, srcb2, srcc2, src_complex2, srcx, srcx2)
! If type-spec appears, it shall specify a type with which each ! If type-spec appears, it shall specify a type with which each
! allocate-object is type compatible. ! allocate-object is type compatible.
!second part C945, specific to SOURCE, is not checked here. !second part C945, specific to SOURCE, is not checked here.
▲ Show 20 Lines • Show All 123 Lines • Show Last 20 Lines

flang/test/Semantics/allocate09.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C946(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred) subroutine C946(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred)
! If source-expr appears, the kind type parameters of each allocate-object shall ! If source-expr appears, the kind type parameters of each allocate-object shall
! have the same values as the corresponding type parameters of source-expr. ! have the same values as the corresponding type parameters of source-expr.
real(kind=4), allocatable :: x1, x2(:) real(kind=4), allocatable :: x1, x2(:)
▲ Show 20 Lines • Show All 121 Lines • Show Last 20 Lines

flang/test/Semantics/allocate10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
!TODO: mixing expr and source-expr? !TODO: mixing expr and source-expr?
!TODO: using subcomponent in source expressions !TODO: using subcomponent in source expressions
subroutine C939_C942a_C945b(xsrc1a, xsrc1c, xsrc0, xsrc2a, xsrc2c, pos) subroutine C939_C942a_C945b(xsrc1a, xsrc1c, xsrc0, xsrc2a, xsrc2c, pos)
! C939: If an allocate-object is an array, either allocate-shape-spec-list shall ! C939: If an allocate-object is an array, either allocate-shape-spec-list shall
! appear in its allocation, or source-expr shall appear in the ALLOCATE ! appear in its allocation, or source-expr shall appear in the ALLOCATE
▲ Show 20 Lines • Show All 149 Lines • Show Last 20 Lines

flang/test/Semantics/allocate11.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
! TODO: Function Pointer in allocate and derived types! ! TODO: Function Pointer in allocate and derived types!
! Rules I should know when working with coarrays and derived type: ! Rules I should know when working with coarrays and derived type:
! C736: If EXTENDS appears and the type being defined has a coarray ultimate ! C736: If EXTENDS appears and the type being defined has a coarray ultimate
! component, its parent type shall have a coarray ultimate component. ! component, its parent type shall have a coarray ultimate component.
▲ Show 20 Lines • Show All 152 Lines • Show Last 20 Lines

flang/test/Semantics/allocate12.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
subroutine C941_C942b_C950(xsrc, x1, a2, b2, cx1, ca2, cb1, cb2, c1, c2) subroutine C941_C942b_C950(xsrc, x1, a2, b2, cx1, ca2, cb1, cb2, c1, c2)
! C941: An allocate-coarray-spec shall appear if and only if the allocate-object ! C941: An allocate-coarray-spec shall appear if and only if the allocate-object
! is a coarray. ! is a coarray.
type type0 type type0
real, allocatable :: array(:) real, allocatable :: array(:)
end type end type
▲ Show 20 Lines • Show All 113 Lines • Show Last 20 Lines

flang/test/Semantics/allocate13.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in ALLOCATE statements ! Check for semantic errors in ALLOCATE statements
module not_iso_fortran_env module not_iso_fortran_env
type event_type type event_type
end type end type
type lock_type type lock_type
end type end type
end module end module
▲ Show 20 Lines • Show All 164 Lines • Show Last 20 Lines

flang/test/Semantics/altreturn01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check calls with alt returns ! Check calls with alt returns
CALL TEST (N, *100, *200 ) CALL TEST (N, *100, *200 )
PRINT *,'Normal return' PRINT *,'Normal return'
STOP STOP
100 PRINT *,'First alternate return' 100 PRINT *,'First alternate return'
STOP STOP
200 PRINT *,'Secondnd alternate return' 200 PRINT *,'Secondnd alternate return'
END END

flang/test/Semantics/altreturn02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check subroutine with alt return ! Check subroutine with alt return
SUBROUTINE TEST (N, *, *) SUBROUTINE TEST (N, *, *)
IF ( N .EQ. 0 ) RETURN IF ( N .EQ. 0 ) RETURN
IF ( N .EQ. 1 ) RETURN 1 IF ( N .EQ. 1 ) RETURN 1
RETURN 2 RETURN 2
END END

flang/test/Semantics/altreturn03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for various alt return error conditions ! Check for various alt return error conditions
SUBROUTINE TEST (N, *, *) SUBROUTINE TEST (N, *, *)
REAL :: R REAL :: R
COMPLEX :: Z COMPLEX :: Z
INTEGER, DIMENSION(2) :: B INTEGER, DIMENSION(2) :: B
IF ( N .EQ. 0 ) RETURN IF ( N .EQ. 0 ) RETURN
IF ( N .EQ. 1 ) RETURN 1 IF ( N .EQ. 1 ) RETURN 1
Show All 13 Lines

flang/test/Semantics/altreturn04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Functions cannot use alt return ! Functions cannot use alt return
REAL FUNCTION altreturn01(X) REAL FUNCTION altreturn01(X)
!ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram !ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
RETURN 1 RETURN 1
END END

flang/test/Semantics/altreturn05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test extension: RETURN from main program ! Test extension: RETURN from main program
return !ok return !ok
!ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram !ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
return 0 return 0
end end

flang/test/Semantics/altreturn06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test alternat return argument passing for internal and external subprograms ! Test alternat return argument passing for internal and external subprograms
! Both of the following are OK ! Both of the following are OK
call extSubprogram (*100) call extSubprogram (*100)
call intSubprogram (*100) call intSubprogram (*100)
call extSubprogram (*101) call extSubprogram (*101)
call intSubprogram (*101) call intSubprogram (*101)
100 PRINT *,'First alternate return' 100 PRINT *,'First alternate return'
!ERROR: Label '101' is not a branch target !ERROR: Label '101' is not a branch target
!ERROR: Label '101' is not a branch target !ERROR: Label '101' is not a branch target
101 FORMAT("abc") 101 FORMAT("abc")
contains contains
subroutine intSubprogram(*) subroutine intSubprogram(*)
return(1) return(1)
end subroutine end subroutine
end end

flang/test/Semantics/array-constr-big.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Ensure that evaluating a very large array constructor does not crash the ! Ensure that evaluating a very large array constructor does not crash the
! compiler ! compiler
program BigArray program BigArray
integer, parameter :: limit = 30 integer, parameter :: limit = 30
!ERROR: Must be a constant value !ERROR: Must be a constant value
integer(foo),parameter :: jval4(limit,limit,limit) = & integer(foo),parameter :: jval4(limit,limit,limit) = &
!ERROR: Must be a constant value !ERROR: Must be a constant value
reshape( (/ & reshape( (/ &
Show All 19 Lines

flang/test/Semantics/array-constr-values.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Confirm enforcement of constraints and restrictions in 7.8 ! Confirm enforcement of constraints and restrictions in 7.8
! C7110, C7111, C7112, C7113, C7114, C7115 ! C7110, C7111, C7112, C7113, C7114, C7115
subroutine arrayconstructorvalues() subroutine arrayconstructorvalues()
integer :: intarray(5) integer :: intarray(5)
integer(KIND=8) :: k8 = 20 integer(KIND=8) :: k8 = 20
TYPE EMPLOYEE TYPE EMPLOYEE
▲ Show 20 Lines • Show All 84 Lines • Show Last 20 Lines

flang/test/Semantics/assign01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! 10.2.3.1(2) All masks and LHS of assignments in a WHERE must conform ! 10.2.3.1(2) All masks and LHS of assignments in a WHERE must conform
subroutine s1 subroutine s1
integer :: a1(10), a2(10) integer :: a1(10), a2(10)
logical :: m1(10), m2(5,5) logical :: m1(10), m2(5,5)
m1 = .true. m1 = .true.
m2 = .false. m2 = .false.
a1 = [((i),i=1,10)] a1 = [((i),i=1,10)]
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/assign02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Pointer assignment constraints 10.2.2.2 ! Pointer assignment constraints 10.2.2.2
module m1 module m1
type :: t(k) type :: t(k)
integer, kind :: k integer, kind :: k
end type end type
type t2 type t2
sequence sequence
▲ Show 20 Lines • Show All 186 Lines • Show Last 20 Lines

flang/test/Semantics/assign03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Pointer assignment constraints 10.2.2.2 (see also assign02.f90) ! Pointer assignment constraints 10.2.2.2 (see also assign02.f90)
module m module m
interface interface
subroutine s(i) subroutine s(i)
integer i integer i
end end
end interface end interface
▲ Show 20 Lines • Show All 193 Lines • Show Last 20 Lines

flang/test/Semantics/assign04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! 9.4.5 ! 9.4.5
subroutine s1 subroutine s1
type :: t(k, l) type :: t(k, l)
integer, kind :: k integer, kind :: k
integer, len :: l integer, len :: l
end type end type
type(t(1, 2)) :: x type(t(1, 2)) :: x
!ERROR: Assignment to constant 'x%k' is not allowed !ERROR: Assignment to constant 'x%k' is not allowed
▲ Show 20 Lines • Show All 165 Lines • Show Last 20 Lines

flang/test/Semantics/assign06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test ASSIGN statement, assigned GOTO, and assigned format labels ! Test ASSIGN statement, assigned GOTO, and assigned format labels
! (see subclause 8.2.4 in Fortran 90 (*not* 2018!) ! (see subclause 8.2.4 in Fortran 90 (*not* 2018!)
program main program main
call test(0) call test(0)
contains contains
subroutine test(n) subroutine test(n)
integer, intent(in) :: n integer, intent(in) :: n
Show All 38 Lines

flang/test/Semantics/assign07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test ASSIGN statement, assigned GOTO, and assigned format labels ! Test ASSIGN statement, assigned GOTO, and assigned format labels
! (see subclause 8.2.4 in Fortran 90 (*not* 2018!) ! (see subclause 8.2.4 in Fortran 90 (*not* 2018!)
program main program main
call test(0) call test(0)
2 format('no') 2 format('no')
contains contains
subroutine test(n) subroutine test(n)
Show All 26 Lines

flang/test/Semantics/associated.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for the ASSOCIATED() and NULL() intrinsics ! Tests for the ASSOCIATED() and NULL() intrinsics
subroutine assoc() subroutine assoc()
abstract interface abstract interface
subroutine subrInt(i) subroutine subrInt(i)
integer :: i integer :: i
end subroutine subrInt end subroutine subrInt
▲ Show 20 Lines • Show All 143 Lines • Show Last 20 Lines

flang/test/Semantics/bad-forward-type.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Forward references to derived types (error cases) ! Forward references to derived types (error cases)
! C732 A parent-type-name shall be the name of a previously defined ! C732 A parent-type-name shall be the name of a previously defined
! extensible type (7.5.7). ! extensible type (7.5.7).
!ERROR: The derived type 'undef' was forward-referenced but not defined !ERROR: The derived type 'undef' was forward-referenced but not defined
type(undef) function f1() type(undef) function f1()
call sub(f1) call sub(f1)
end function end function
▲ Show 20 Lines • Show All 90 Lines • Show Last 20 Lines

flang/test/Semantics/bind-c01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for multiple symbols being defined with with same BIND(C) name ! Check for multiple symbols being defined with with same BIND(C) name
module m1 module m1
integer, bind(c, name="x1") :: x1 integer, bind(c, name="x1") :: x1
!ERROR: Two symbols have the same BIND(C) name 'x1' !ERROR: Two symbols have the same BIND(C) name 'x1'
integer, bind(c, name=" x1 ") :: x2 integer, bind(c, name=" x1 ") :: x2
contains contains
!ERROR: Two symbols have the same BIND(C) name 'x3' !ERROR: Two symbols have the same BIND(C) name 'x3'
Show All 16 Lines

flang/test/Semantics/bindings01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Confirm enforcement of constraints and restrictions in 7.5.7.3 ! Confirm enforcement of constraints and restrictions in 7.5.7.3
! and C733, C734 and C779, C780, C782, C783, C784, and C785. ! and C733, C734 and C779, C780, C782, C783, C784, and C785.
module m module m
!ERROR: An ABSTRACT derived type must be extensible !ERROR: An ABSTRACT derived type must be extensible
type, abstract, bind(c) :: badAbstract1 type, abstract, bind(c) :: badAbstract1
end type end type
!ERROR: An ABSTRACT derived type must be extensible !ERROR: An ABSTRACT derived type must be extensible
▲ Show 20 Lines • Show All 213 Lines • Show Last 20 Lines

flang/test/Semantics/block-data01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test BLOCK DATA subprogram (14.3) ! Test BLOCK DATA subprogram (14.3)
block data foo block data foo
!ERROR: IMPORT is not allowed in a BLOCK DATA subprogram !ERROR: IMPORT is not allowed in a BLOCK DATA subprogram
import import
real :: pi = asin(-1.0) ! ok real :: pi = asin(-1.0) ! ok
!ERROR: An initialized variable in BLOCK DATA must be in a COMMON block !ERROR: An initialized variable in BLOCK DATA must be in a COMMON block
integer :: notInCommon = 1 integer :: notInCommon = 1
integer :: uninitialized ! ok integer :: uninitialized ! ok
Show All 25 Lines

flang/test/Semantics/blockconstruct01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1107 -- COMMON, EQUIVALENCE, INTENT, NAMELIST, OPTIONAL, VALUE or ! C1107 -- COMMON, EQUIVALENCE, INTENT, NAMELIST, OPTIONAL, VALUE or
! STATEMENT FUNCTIONS not allow in specification part ! STATEMENT FUNCTIONS not allow in specification part
subroutine s1_c1107 subroutine s1_c1107
common /nl/x common /nl/x
block block
!ERROR: COMMON statement is not allowed in a BLOCK construct !ERROR: COMMON statement is not allowed in a BLOCK construct
common /nl/y common /nl/y
▲ Show 20 Lines • Show All 57 Lines • Show Last 20 Lines

flang/test/Semantics/blockconstruct02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1108 -- Save statement in a BLOCK construct shall not conatin a ! C1108 -- Save statement in a BLOCK construct shall not conatin a
! saved-entity-list that does not specify a common-block-name ! saved-entity-list that does not specify a common-block-name
program main program main
integer x, y, z integer x, y, z
real r, s, t real r, s, t
common /argmnt2/ r, s, t common /argmnt2/ r, s, t
!ERROR: 'argmnt1' appears as a COMMON block in a SAVE statement but not in a COMMON statement !ERROR: 'argmnt1' appears as a COMMON block in a SAVE statement but not in a COMMON statement
save /argmnt1/ save /argmnt1/
block block
!ERROR: SAVE statement in BLOCK construct may not contain a common block name 'argmnt2' !ERROR: SAVE statement in BLOCK construct may not contain a common block name 'argmnt2'
save /argmnt2/ save /argmnt2/
end block end block
end program end program

flang/test/Semantics/blockconstruct03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests implemented for this standard: ! Tests implemented for this standard:
! Block Construct ! Block Construct
! C1109 ! C1109
subroutine s5_c1109 subroutine s5_c1109
b1:block b1:block
!ERROR: BLOCK construct name mismatch !ERROR: BLOCK construct name mismatch
end block b2 end block b2
end end

flang/test/Semantics/boz-literal-constants.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Confirm enforcement of constraints and restrictions in 7.7 ! Confirm enforcement of constraints and restrictions in 7.7
! C7107, C7108, C7109 ! C7107, C7108, C7109
subroutine bozchecks subroutine bozchecks
! Type declaration statements ! Type declaration statements
integer :: f, realpart = B"0101", img = B"1111", resint integer :: f, realpart = B"0101", img = B"1111", resint
logical :: resbit logical :: resbit
complex :: rescmplx complex :: rescmplx
▲ Show 20 Lines • Show All 76 Lines • Show Last 20 Lines

flang/test/Semantics/c_f_pointer.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Enforce 18.2.3.3 ! Enforce 18.2.3.3
program test program test
use iso_c_binding, only: c_ptr, c_f_pointer use iso_c_binding, only: c_ptr, c_f_pointer
type(c_ptr) :: scalarC, arrayC(1) type(c_ptr) :: scalarC, arrayC(1)
type :: with_pointer type :: with_pointer
integer, pointer :: p integer, pointer :: p
end type end type
Show All 23 Lines

flang/test/Semantics/call01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Confirm enforcement of constraints and restrictions in 15.6.2.1 ! Confirm enforcement of constraints and restrictions in 15.6.2.1
non_recursive function f01(n) result(res) non_recursive function f01(n) result(res)
integer, value :: n integer, value :: n
integer :: res integer :: res
if (n <= 0) then if (n <= 0) then
res = n res = n
else else
▲ Show 20 Lines • Show All 108 Lines • Show Last 20 Lines

flang/test/Semantics/call02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! 15.5.1 procedure reference constraints and restrictions ! 15.5.1 procedure reference constraints and restrictions
subroutine s01(elem, subr) subroutine s01(elem, subr)
interface interface
!ERROR: A dummy procedure may not be ELEMENTAL !ERROR: A dummy procedure may not be ELEMENTAL
elemental real function elem(x) elemental real function elem(x)
real, intent(in), value :: x real, intent(in), value :: x
end function end function
▲ Show 20 Lines • Show All 87 Lines • Show Last 20 Lines

flang/test/Semantics/call03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.5.2.4 constraints and restrictions for non-POINTER non-ALLOCATABLE ! Test 15.5.2.4 constraints and restrictions for non-POINTER non-ALLOCATABLE
! dummy arguments. ! dummy arguments.
module m01 module m01
type :: t type :: t
end type end type
type :: pdt(n) type :: pdt(n)
integer, len :: n integer, len :: n
▲ Show 20 Lines • Show All 358 Lines • Show Last 20 Lines

flang/test/Semantics/call04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 8.5.10 & 8.5.18 constraints on dummy argument declarations ! Test 8.5.10 & 8.5.18 constraints on dummy argument declarations
module m module m
type :: hasCoarray type :: hasCoarray
real, allocatable :: a(:)[:] real, allocatable :: a(:)[:]
end type end type
type, extends(hasCoarray) :: extendsHasCoarray type, extends(hasCoarray) :: extendsHasCoarray
▲ Show 20 Lines • Show All 53 Lines • Show Last 20 Lines

flang/test/Semantics/call05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.5.2.5 constraints and restrictions for POINTER & ALLOCATABLE ! Test 15.5.2.5 constraints and restrictions for POINTER & ALLOCATABLE
! arguments when both sides of the call have the same attributes. ! arguments when both sides of the call have the same attributes.
module m module m
type :: t type :: t
end type end type
type, extends(t) :: t2 type, extends(t) :: t2
▲ Show 20 Lines • Show All 111 Lines • Show Last 20 Lines

flang/test/Semantics/call06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.5.2.6 constraints and restrictions for ALLOCATABLE ! Test 15.5.2.6 constraints and restrictions for ALLOCATABLE
! dummy arguments. ! dummy arguments.
module m module m
real, allocatable :: cov[:], com[:,:] real, allocatable :: cov[:], com[:,:]
contains contains
▲ Show 20 Lines • Show All 47 Lines • Show Last 20 Lines

flang/test/Semantics/call07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.5.2.7 constraints and restrictions for POINTER dummy arguments. ! Test 15.5.2.7 constraints and restrictions for POINTER dummy arguments.
module m module m
real :: coarray(10)[*] real :: coarray(10)[*]
contains contains
subroutine s01(p) subroutine s01(p)
real, pointer, contiguous, intent(in) :: p(:) real, pointer, contiguous, intent(in) :: p(:)
Show All 33 Lines

flang/test/Semantics/call08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.5.2.8 coarray dummy arguments ! Test 15.5.2.8 coarray dummy arguments
module m module m
real :: c1[*] real :: c1[*]
real, volatile :: c2[*] real, volatile :: c2[*]
contains contains
Show All 39 Lines

flang/test/Semantics/call09.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.5.2.9(2,3,5) dummy procedure requirements ! Test 15.5.2.9(2,3,5) dummy procedure requirements
! C843 ! C843
! An entity with the INTENT attribute shall be a dummy data object or a ! An entity with the INTENT attribute shall be a dummy data object or a
! dummy procedure pointer. ! dummy procedure pointer.
module m module m
contains contains
▲ Show 20 Lines • Show All 180 Lines • Show Last 20 Lines

flang/test/Semantics/call10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.7 (C1583-C1590, C1592-C1599) constraints and restrictions ! Test 15.7 (C1583-C1590, C1592-C1599) constraints and restrictions
! for pure procedures. ! for pure procedures.
! (C1591 is tested in call11.f90; C1594 in call12.f90.) ! (C1591 is tested in call11.f90; C1594 in call12.f90.)
module m module m
type :: impureFinal type :: impureFinal
contains contains
▲ Show 20 Lines • Show All 205 Lines • Show Last 20 Lines

flang/test/Semantics/call11.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.7 C1591 & others: contexts requiring pure subprograms ! Test 15.7 C1591 & others: contexts requiring pure subprograms
module m module m
type :: t type :: t
contains contains
procedure, nopass :: tbp_pure => pure procedure, nopass :: tbp_pure => pure
procedure, nopass :: tbp_impure => impure procedure, nopass :: tbp_impure => impure
▲ Show 20 Lines • Show All 88 Lines • Show Last 20 Lines

flang/test/Semantics/call12.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.7 C1594 - prohibited assignments in pure subprograms ! Test 15.7 C1594 - prohibited assignments in pure subprograms
module used module used
real :: useassociated real :: useassociated
end module end module
module m module m
type :: t type :: t
▲ Show 20 Lines • Show All 66 Lines • Show Last 20 Lines

flang/test/Semantics/call13.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 15.4.2.2 constraints and restrictions for calls to implicit ! Test 15.4.2.2 constraints and restrictions for calls to implicit
! interfaces ! interfaces
subroutine s(assumedRank, coarray, class, classStar, typeStar) subroutine s(assumedRank, coarray, class, classStar, typeStar)
type :: t type :: t
end type end type
real :: assumedRank(..), coarray[*] real :: assumedRank(..), coarray[*]
Show All 34 Lines

flang/test/Semantics/call14.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test 8.5.18 constraints on the VALUE attribute ! Test 8.5.18 constraints on the VALUE attribute
module m module m
type :: hasCoarray type :: hasCoarray
real, allocatable :: coarray[:] real, allocatable :: coarray[:]
end type end type
contains contains
!ERROR: VALUE attribute may apply only to a dummy data object !ERROR: VALUE attribute may apply only to a dummy data object
Show All 29 Lines

flang/test/Semantics/call15.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C711 An assumed-type actual argument that corresponds to an assumed-rank ! C711 An assumed-type actual argument that corresponds to an assumed-rank
! dummy argument shall be assumed-shape or assumed-rank. ! dummy argument shall be assumed-shape or assumed-rank.
subroutine s(arg1, arg2, arg3) subroutine s(arg1, arg2, arg3)
type(*), dimension(..) :: arg1 ! assumed rank type(*), dimension(..) :: arg1 ! assumed rank
type(*), dimension(:) :: arg2 ! assumed shape type(*), dimension(:) :: arg2 ! assumed shape
type(*) :: arg3 type(*) :: arg3
call inner(arg1) ! OK, assumed rank call inner(arg1) ! OK, assumed rank
Show All 9 Lines

flang/test/Semantics/call16.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test that intrinsic functions used as subroutines and vice versa are caught. ! Test that intrinsic functions used as subroutines and vice versa are caught.
subroutine test(x, t) subroutine test(x, t)
intrinsic :: sin, cpu_time intrinsic :: sin, cpu_time
!ERROR: Cannot use intrinsic function 'sin' as a subroutine !ERROR: Cannot use intrinsic function 'sin' as a subroutine
call sin(x) call sin(x)
!ERROR: Cannot use intrinsic subroutine 'cpu_time' as a function !ERROR: Cannot use intrinsic subroutine 'cpu_time' as a function
x = cpu_time(t) x = cpu_time(t)
end subroutine end subroutine

flang/test/Semantics/call18.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Ensure that references to functions that return pointers can serve as ! Ensure that references to functions that return pointers can serve as
! "variables" in actual arguments. All of these uses are conforming and ! "variables" in actual arguments. All of these uses are conforming and
! no errors should be reported. ! no errors should be reported.
module m module m
integer, target :: x = 1 integer, target :: x = 1
contains contains
function get() result(p) function get() result(p)
integer, pointer :: p integer, pointer :: p
Show All 17 Lines

flang/test/Semantics/call19.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Ensures that things that aren't procedures aren't allowed to be called. ! Ensures that things that aren't procedures aren't allowed to be called.
module m module m
integer :: i integer :: i
integer, pointer :: ip integer, pointer :: ip
type :: t type :: t
end type end type
type :: pdt(k,len) type :: pdt(k,len)
integer, kind :: k integer, kind :: k
Show All 25 Lines

flang/test/Semantics/case01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test SELECT CASE Constraints: C1145, C1146, C1147, C1148, C1149 ! Test SELECT CASE Constraints: C1145, C1146, C1147, C1148, C1149
program selectCaseProg program selectCaseProg
implicit none implicit none
! local variable declaration ! local variable declaration
character :: grade1 = 'B' character :: grade1 = 'B'
integer :: grade2 = 3 integer :: grade2 = 3
logical :: grade3 = .false. logical :: grade3 = .false.
real :: grade4 = 2.0 real :: grade4 = 2.0
▲ Show 20 Lines • Show All 170 Lines • Show Last 20 Lines

flang/test/Semantics/coarrays01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test selector and team-value in CHANGE TEAM statement ! Test selector and team-value in CHANGE TEAM statement
! OK ! OK
subroutine s1 subroutine s1
use iso_fortran_env, only: team_type use iso_fortran_env, only: team_type
type(team_type) :: t type(team_type) :: t
real :: y[10,*] real :: y[10,*]
change team(t, x[10,*] => y) change team(t, x[10,*] => y)
▲ Show 20 Lines • Show All 68 Lines • Show Last 20 Lines

flang/test/Semantics/complex01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C718 Each named constant in a complex literal constant shall be of type ! C718 Each named constant in a complex literal constant shall be of type
! integer or real. ! integer or real.
subroutine s() subroutine s()
integer :: ivar = 35 integer :: ivar = 35
integer, parameter :: iconst = 35 integer, parameter :: iconst = 35
real :: rvar = 68.9 real :: rvar = 68.9
real, parameter :: rconst = 68.9 real, parameter :: rconst = 68.9
character :: cvar = 'hello' character :: cvar = 'hello'
Show All 24 Lines

flang/test/Semantics/computed-goto01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check that a basic computed goto compiles ! Check that a basic computed goto compiles
INTEGER, DIMENSION (2) :: B INTEGER, DIMENSION (2) :: B
GOTO (100) 1 GOTO (100) 1
GOTO (100) I GOTO (100) I
GOTO (100) I+J GOTO (100) I+J
GOTO (100) B(1) GOTO (100) B(1)
Show All 15 Lines

flang/test/Semantics/computed-goto02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check that computed goto express must be a scalar integer expression ! Check that computed goto express must be a scalar integer expression
! TODO: PGI, for example, accepts a float & converts the value to int. ! TODO: PGI, for example, accepts a float & converts the value to int.
REAL R REAL R
COMPLEX Z COMPLEX Z
LOGICAL L LOGICAL L
INTEGER, DIMENSION (2) :: B INTEGER, DIMENSION (2) :: B
Show All 14 Lines

flang/test/Semantics/critical01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!C1117 !C1117
subroutine test1(a, i) subroutine test1(a, i)
integer i integer i
real a(10) real a(10)
one: critical one: critical
if (a(i) < 0.0) then if (a(i) < 0.0) then
a(i) = 20.20 a(i) = 20.20
Show All 15 Lines

flang/test/Semantics/critical02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!C1118 !C1118
subroutine test1 subroutine test1
critical critical
!ERROR: RETURN statement is not allowed in a CRITICAL construct !ERROR: RETURN statement is not allowed in a CRITICAL construct
return return
end critical end critical
end subroutine test1 end subroutine test1
▲ Show 20 Lines • Show All 113 Lines • Show Last 20 Lines

flang/test/Semantics/critical03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!C1119 !C1119
subroutine test1(a, i) subroutine test1(a, i)
integer i integer i
real a(10) real a(10)
critical critical
if (a(i) < 0.0) then if (a(i) < 0.0) then
a(i) = 20.20 a(i) = 20.20
Show All 26 Lines

flang/test/Semantics/data01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!Test for checking data constraints, C882-C887 !Test for checking data constraints, C882-C887
module m1 module m1
type person type person
integer :: age integer :: age
character(len=25) :: name character(len=25) :: name
end type end type
integer, parameter::digits(5) = ( /-11,-22,-33,44,55/ ) integer, parameter::digits(5) = ( /-11,-22,-33,44,55/ )
integer ::notConstDigits(5) integer ::notConstDigits(5)
▲ Show 20 Lines • Show All 57 Lines • Show Last 20 Lines

flang/test/Semantics/data02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check that expressions are analyzed in data statements ! Check that expressions are analyzed in data statements
subroutine s1 subroutine s1
type :: t type :: t
character(1) :: c character(1) :: c
end type end type
type(t) :: x type(t) :: x
!ERROR: Value in structure constructor of type INTEGER(4) is incompatible with component 'c' of type CHARACTER(KIND=1,LEN=1_8) !ERROR: Value in structure constructor of type INTEGER(4) is incompatible with component 'c' of type CHARACTER(KIND=1,LEN=1_8)
Show All 23 Lines

flang/test/Semantics/data03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!Testing data constraints : C874 - C875, C878 - C881 !Testing data constraints : C874 - C875, C878 - C881
module m module m
integer, target :: modarray(1) integer, target :: modarray(1)
contains contains
function f(i) function f(i)
integer, intent(in) :: i integer, intent(in) :: i
integer, pointer :: f integer, pointer :: f
f => modarray(i) f => modarray(i)
▲ Show 20 Lines • Show All 81 Lines • Show Last 20 Lines

flang/test/Semantics/data04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!Testing data constraints : C876, C877 !Testing data constraints : C876, C877
module m module m
integer :: first integer :: first
contains contains
subroutine h subroutine h
integer a,b integer a,b
!C876 !C876
!ERROR: Host-associated object 'first' must not be initialized in a DATA statement !ERROR: Host-associated object 'first' must not be initialized in a DATA statement
▲ Show 20 Lines • Show All 146 Lines • Show Last 20 Lines

flang/test/Semantics/data06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! DATA statement errors ! DATA statement errors
subroutine s1 subroutine s1
type :: t1 type :: t1
integer :: j = 666 integer :: j = 666
end type t1 end type t1
type(t1) :: t1x type(t1) :: t1x
!ERROR: Default-initialized 't1x' must not be initialized in a DATA statement !ERROR: Default-initialized 't1x' must not be initialized in a DATA statement
data t1x%j / 777 / data t1x%j / 777 /
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

flang/test/Semantics/data07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
contains contains
subroutine s1 subroutine s1
!ERROR: DATA statement initializations affect 'jb(5_8)' more than once !ERROR: DATA statement initializations affect 'jb(5_8)' more than once
integer :: ja(10), jb(10) integer :: ja(10), jb(10)
data (ja(k),k=1,9,2) / 5*1 / ! ok data (ja(k),k=1,9,2) / 5*1 / ! ok
data (ja(k),k=10,2,-2) / 5*2 / ! ok data (ja(k),k=10,2,-2) / 5*2 / ! ok
data (jb(k),k=1,9,2) / 5*1 / ! ok data (jb(k),k=1,9,2) / 5*1 / ! ok
data (jb(k),k=2,10,3) / 3*2 / ! conflict at 5 data (jb(k),k=2,10,3) / 3*2 / ! conflict at 5
end subroutine end subroutine
end module end module

flang/test/Semantics/data10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
type :: t type :: t
integer :: n integer :: n
end type end type
type(t) :: x type(t) :: x
real, target, save :: a(1) real, target, save :: a(1)
real, parameter :: arrparm(1) = [3.14159] real, parameter :: arrparm(1) = [3.14159]
real, pointer :: p real, pointer :: p
real :: y real :: y
data x/t(1)/ data x/t(1)/
data p/a(1)/ data p/a(1)/
!ERROR: DATA statement value initializes 'y' with an array !ERROR: DATA statement value initializes 'y' with an array
data y/arrparm/ data y/arrparm/
end end

flang/test/Semantics/deallocate01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test that DEALLOCATE works ! Test that DEALLOCATE works
INTEGER, PARAMETER :: maxvalue=1024 INTEGER, PARAMETER :: maxvalue=1024
Type dt Type dt
Integer :: l = 3 Integer :: l = 3
End Type End Type
Type t Type t
Show All 39 Lines

flang/test/Semantics/deallocate04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for type errors in DEALLOCATE statements ! Check for type errors in DEALLOCATE statements
INTEGER, PARAMETER :: maxvalue=1024 INTEGER, PARAMETER :: maxvalue=1024
Type dt Type dt
Integer :: l = 3 Integer :: l = 3
End Type End Type
Type t Type t
Show All 22 Lines

flang/test/Semantics/deallocate05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in DEALLOCATE statements ! Check for semantic errors in DEALLOCATE statements
Module share Module share
Real, Pointer :: rp Real, Pointer :: rp
End Module share End Module share
Program deallocatetest Program deallocatetest
Use share Use share
▲ Show 20 Lines • Show All 60 Lines • Show Last 20 Lines

flang/test/Semantics/deallocate06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test deallocate of use- and host-associated variables ! Test deallocate of use- and host-associated variables
module m1 module m1
real, pointer :: a(:) real, pointer :: a(:)
real, allocatable :: b(:) real, allocatable :: b(:)
end end
subroutine s1() subroutine s1()
Show All 16 Lines

flang/test/Semantics/doconcurrent01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1141 ! C1141
! A reference to the procedure IEEE_SET_HALTING_MODE ! from the intrinsic ! A reference to the procedure IEEE_SET_HALTING_MODE ! from the intrinsic
! module IEEE_EXCEPTIONS, shall not ! appear within a DO CONCURRENT construct. ! module IEEE_EXCEPTIONS, shall not ! appear within a DO CONCURRENT construct.
! !
! C1137 ! C1137
! An image control statement shall not appear within a DO CONCURRENT construct. ! An image control statement shall not appear within a DO CONCURRENT construct.
! !
! C1136 ! C1136
▲ Show 20 Lines • Show All 225 Lines • Show Last 20 Lines

flang/test/Semantics/doconcurrent05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if
! it belongs to that construct or an outer construct. ! it belongs to that construct or an outer construct.
subroutine do_concurrent_test1(n) subroutine do_concurrent_test1(n)
implicit none implicit none
integer :: n integer :: n
integer :: j,k integer :: j,k
mydoc: do concurrent(j=1:n) mydoc: do concurrent(j=1:n)
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/doconcurrent06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if
! it belongs to that construct or an outer construct. ! it belongs to that construct or an outer construct.
subroutine do_concurrent_test1(n) subroutine do_concurrent_test1(n)
implicit none implicit none
integer :: i1,i2,i3,i4,i5,i6,n integer :: i1,i2,i3,i4,i5,i6,n
mytest1: if (n>0) then mytest1: if (n>0) then
nc1: do concurrent(i1=1:n) nc1: do concurrent(i1=1:n)
▲ Show 20 Lines • Show All 61 Lines • Show Last 20 Lines

flang/test/Semantics/doconcurrent08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1140 -- A statement that might result in the deallocation of a polymorphic ! C1140 -- A statement that might result in the deallocation of a polymorphic
! entity shall not appear within a DO CONCURRENT construct. ! entity shall not appear within a DO CONCURRENT construct.
module m1 module m1
! Base type with scalar components ! Base type with scalar components
type :: Base type :: Base
integer :: baseField1 integer :: baseField1
end type end type
▲ Show 20 Lines • Show All 267 Lines • Show Last 20 Lines

flang/test/Semantics/dosemantics01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1131 -- check valid and invalid DO loop naming ! C1131 -- check valid and invalid DO loop naming
PROGRAM C1131 PROGRAM C1131
IMPLICIT NONE IMPLICIT NONE
! Valid construct ! Valid construct
validDo: DO WHILE (.true.) validDo: DO WHILE (.true.)
PRINT *, "Hello" PRINT *, "Hello"
END DO ValidDo END DO ValidDo
Show All 14 Lines

flang/test/Semantics/dosemantics02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1121 -- any procedure referenced in a concurrent header must be pure ! C1121 -- any procedure referenced in a concurrent header must be pure
! Also, check that the step expressions are not zero. This is prohibited by ! Also, check that the step expressions are not zero. This is prohibited by
! Section 11.1.7.4.1, paragraph 1. ! Section 11.1.7.4.1, paragraph 1.
SUBROUTINE do_concurrent_c1121(i,n) SUBROUTINE do_concurrent_c1121(i,n)
IMPLICIT NONE IMPLICIT NONE
INTEGER :: i, n, flag INTEGER :: i, n, flag
Show All 33 Lines

flang/test/Semantics/dosemantics03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -pedantic -Werror ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -pedantic -Werror
! REQUIRES: shell
! Issue 458 -- semantic checks for a normal DO loop. The DO variable ! Issue 458 -- semantic checks for a normal DO loop. The DO variable
! and the initial, final, and step expressions must be INTEGER if the ! and the initial, final, and step expressions must be INTEGER if the
! options for standard conformance and turning warnings into errors ! options for standard conformance and turning warnings into errors
! are both in effect. This test turns on the options for standards ! are both in effect. This test turns on the options for standards
! conformance and turning warnings into errors. This produces error ! conformance and turning warnings into errors. This produces error
! messages for the cases where REAL and DOUBLE PRECISION variables ! messages for the cases where REAL and DOUBLE PRECISION variables
! and expressions are used in the DO controls. ! and expressions are used in the DO controls.
▲ Show 20 Lines • Show All 280 Lines • Show Last 20 Lines

flang/test/Semantics/dosemantics04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1123 -- Expressions in DO CONCURRENT header cannot reference variables ! C1123 -- Expressions in DO CONCURRENT header cannot reference variables
! declared in the same header ! declared in the same header
PROGRAM dosemantics04 PROGRAM dosemantics04
IMPLICIT NONE IMPLICIT NONE
INTEGER :: a, i, j, k, n INTEGER :: a, i, j, k, n
!ERROR: DO CONCURRENT mask expression references variable 'n' in LOCAL locality-spec !ERROR: DO CONCURRENT mask expression references variable 'n' in LOCAL locality-spec
DO CONCURRENT (INTEGER *2 :: i = 1:10, i < j + n) LOCAL(n) DO CONCURRENT (INTEGER *2 :: i = 1:10, i < j + n) LOCAL(n)
Show All 28 Lines

flang/test/Semantics/dosemantics05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test DO loop semantics for constraint C1130 -- ! Test DO loop semantics for constraint C1130 --
! The constraint states that "If the locality-spec DEFAULT ( NONE ) appears in a ! The constraint states that "If the locality-spec DEFAULT ( NONE ) appears in a
! DO CONCURRENT statement; a variable that is a local or construct entity of a ! DO CONCURRENT statement; a variable that is a local or construct entity of a
! scope containing the DO CONCURRENT construct; and that appears in the block of ! scope containing the DO CONCURRENT construct; and that appears in the block of
! the construct; shall have its locality explicitly specified by that ! the construct; shall have its locality explicitly specified by that
! statement." ! statement."
module m module m
▲ Show 20 Lines • Show All 90 Lines • Show Last 20 Lines

flang/test/Semantics/dosemantics06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1131, C1133 -- check valid and invalid DO loop naming ! C1131, C1133 -- check valid and invalid DO loop naming
! C1131 (R1119) If the do-stmt of a do-construct specifies a do-construct-name, ! C1131 (R1119) If the do-stmt of a do-construct specifies a do-construct-name,
! the corresponding end-do shall be an end-do-stmt specifying the same ! the corresponding end-do shall be an end-do-stmt specifying the same
! do-construct-name. If the do-stmt of a do-construct does not specify a ! do-construct-name. If the do-stmt of a do-construct does not specify a
! do-construct-name, the corresponding end-do shall not specify a ! do-construct-name, the corresponding end-do shall not specify a
! do-construct-name. ! do-construct-name.
! !
! C1133 (R1119) If the do-stmt is a label-do-stmt, the corresponding end-do ! C1133 (R1119) If the do-stmt is a label-do-stmt, the corresponding end-do
Show All 33 Lines

flang/test/Semantics/dosemantics07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!C1132 !C1132
! If the do-stmt is a nonlabel-do-stmt, the corresponding end-do shall be an ! If the do-stmt is a nonlabel-do-stmt, the corresponding end-do shall be an
! end-do-stmt. ! end-do-stmt.
subroutine s1() subroutine s1()
do while (.true.) do while (.true.)
print *, "Hello" print *, "Hello"
continue continue
!ERROR: expected 'END DO' !ERROR: expected 'END DO'
end subroutine s1 end subroutine s1

flang/test/Semantics/dosemantics08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1138 -- ! C1138 --
! A branch (11.2) within a DO CONCURRENT construct shall not have a branch ! A branch (11.2) within a DO CONCURRENT construct shall not have a branch
! target that is outside the construct. ! target that is outside the construct.
subroutine s1() subroutine s1()
do concurrent (i=1:10) do concurrent (i=1:10)
!ERROR: Control flow escapes from DO CONCURRENT !ERROR: Control flow escapes from DO CONCURRENT
goto 99 goto 99
end do end do
99 print *, "Hello" 99 print *, "Hello"
end subroutine s1 end subroutine s1

flang/test/Semantics/dosemantics09.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!C1129 !C1129
!A variable that is referenced by the scalar-mask-expr of a !A variable that is referenced by the scalar-mask-expr of a
!concurrent-header or by any concurrent-limit or concurrent-step in that !concurrent-header or by any concurrent-limit or concurrent-step in that
!concurrent-header shall not appear in a LOCAL locality-spec in the same DO !concurrent-header shall not appear in a LOCAL locality-spec in the same DO
!CONCURRENT statement. !CONCURRENT statement.
subroutine s1() subroutine s1()
▲ Show 20 Lines • Show All 97 Lines • Show Last 20 Lines

flang/test/Semantics/dosemantics10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1134 A CYCLE statement must be within a DO construct ! C1134 A CYCLE statement must be within a DO construct
! !
! C1166 An EXIT statement must be within a DO construct ! C1166 An EXIT statement must be within a DO construct
subroutine s1() subroutine s1()
! this one's OK ! this one's OK
do i = 1,10 do i = 1,10
cycle cycle
Show All 29 Lines

flang/test/Semantics/dosemantics11.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1135 A cycle-stmt shall not appear within a CHANGE TEAM, CRITICAL, or DO ! C1135 A cycle-stmt shall not appear within a CHANGE TEAM, CRITICAL, or DO
! CONCURRENT construct if it belongs to an outer construct. ! CONCURRENT construct if it belongs to an outer construct.
! !
! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if
! it belongs to that construct or an outer construct. ! it belongs to that construct or an outer construct.
! !
! C1168 -- An exit-stmt shall not appear within a CHANGE TEAM or CRITICAL ! C1168 -- An exit-stmt shall not appear within a CHANGE TEAM or CRITICAL
! construct if it belongs to an outer construct. ! construct if it belongs to an outer construct.
▲ Show 20 Lines • Show All 319 Lines • Show Last 20 Lines

flang/test/Semantics/dosemantics12.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Copyright (c) 2019, NVIDIA CORPORATION. All rights reserved. ! Copyright (c) 2019, NVIDIA CORPORATION. All rights reserved.
! !
! Licensed under the Apache License, Version 2.0 (the "License"); ! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License. ! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at ! You may obtain a copy of the License at
! !
! http://www.apache.org/licenses/LICENSE-2.0 ! http://www.apache.org/licenses/LICENSE-2.0
! !
▲ Show 20 Lines • Show All 458 Lines • Show Last 20 Lines

flang/test/Semantics/entry01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests valid and invalid ENTRY statements ! Tests valid and invalid ENTRY statements
module m1 module m1
!ERROR: ENTRY may appear only in a subroutine or function !ERROR: ENTRY may appear only in a subroutine or function
entry badentryinmodule entry badentryinmodule
interface interface
module subroutine separate module subroutine separate
end subroutine end subroutine
▲ Show 20 Lines • Show All 176 Lines • Show Last 20 Lines

flang/test/Semantics/equivalence01.f90

!RUN: %S/test_errors.sh %s %t %flang_fc1 !RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
integer i, j integer i, j
real r(2) real r(2)
!ERROR: Equivalence set must have more than one object !ERROR: Equivalence set must have more than one object
equivalence(i, j),(r(1)) equivalence(i, j),(r(1))
end end
subroutine s2 subroutine s2
▲ Show 20 Lines • Show All 207 Lines • Show Last 20 Lines

flang/test/Semantics/expr-errors01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1003 - can't parenthesize function call returning procedure pointer ! C1003 - can't parenthesize function call returning procedure pointer
module m1 module m1
type :: dt type :: dt
procedure(frpp), pointer, nopass :: pp procedure(frpp), pointer, nopass :: pp
end type dt end type dt
contains contains
subroutine boring subroutine boring
end subroutine boring end subroutine boring
Show All 18 Lines

flang/test/Semantics/expr-errors02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test specification expressions ! Test specification expressions
module m module m
type :: t(n) type :: t(n)
integer, len :: n = 1 integer, len :: n = 1
character(len=n) :: c character(len=n) :: c
end type end type
interface interface
▲ Show 20 Lines • Show All 48 Lines • Show Last 20 Lines

flang/test/Semantics/expr-errors03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Regression test for subscript error recovery ! Regression test for subscript error recovery
module m module m
implicit none implicit none
integer, parameter :: n = 3 integer, parameter :: n = 3
integer, parameter :: pc(n) = [0, 5, 6] integer, parameter :: pc(n) = [0, 5, 6]
contains contains
logical function f(u) logical function f(u)
integer :: u integer :: u
Show All 11 Lines

flang/test/Semantics/final01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test FINAL subroutine constraints C786-C789 ! Test FINAL subroutine constraints C786-C789
module m1 module m1
external :: external external :: external
intrinsic :: sin intrinsic :: sin
real :: object real :: object
procedure(valid), pointer :: pointer procedure(valid), pointer :: pointer
type :: parent(kind1, len1) type :: parent(kind1, len1)
integer, kind :: kind1 = 1 integer, kind :: kind1 = 1
▲ Show 20 Lines • Show All 110 Lines • Show Last 20 Lines

flang/test/Semantics/forall01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine forall1 subroutine forall1
real :: a(9) real :: a(9)
!ERROR: 'i' is already declared in this scoping unit !ERROR: 'i' is already declared in this scoping unit
!ERROR: Cannot redefine FORALL variable 'i' !ERROR: Cannot redefine FORALL variable 'i'
forall (i=1:8, i=1:9) a(i) = i forall (i=1:8, i=1:9) a(i) = i
!ERROR: 'i' is already declared in this scoping unit !ERROR: 'i' is already declared in this scoping unit
!ERROR: Cannot redefine FORALL variable 'i' !ERROR: Cannot redefine FORALL variable 'i'
forall (i=1:8, i=1:9) forall (i=1:8, i=1:9)
▲ Show 20 Lines • Show All 97 Lines • Show Last 20 Lines

flang/test/Semantics/if_arith01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check that a basic arithmetic if compiles. ! Check that a basic arithmetic if compiles.
if ( A ) 100, 200, 300 if ( A ) 100, 200, 300
100 CONTINUE 100 CONTINUE
200 CONTINUE 200 CONTINUE
300 CONTINUE 300 CONTINUE
END END

flang/test/Semantics/if_arith02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check that only labels are allowed in arithmetic if statements. ! Check that only labels are allowed in arithmetic if statements.
! TODO: Revisit error message "expected 'ASSIGN'" etc. ! TODO: Revisit error message "expected 'ASSIGN'" etc.
! TODO: Revisit error message "expected one of '0123456789'" ! TODO: Revisit error message "expected one of '0123456789'"
! TODO: BUG: Note that labels 500 and 600 do not exist and ! TODO: BUG: Note that labels 500 and 600 do not exist and
! ought to be flagged as errors. This oversight may be the ! ought to be flagged as errors. This oversight may be the
! result of disabling semantic checking after syntax errors. ! result of disabling semantic checking after syntax errors.
Show All 28 Lines

flang/test/Semantics/if_arith03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!ERROR: Label '600' was not found !ERROR: Label '600' was not found
if ( A ) 100, 200, 600 if ( A ) 100, 200, 600
100 CONTINUE 100 CONTINUE
200 CONTINUE 200 CONTINUE
300 CONTINUE 300 CONTINUE
!ERROR: Label '601' was not found !ERROR: Label '601' was not found
Show All 12 Lines

flang/test/Semantics/if_arith04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Make sure arithmetic if expressions are non-complex numeric exprs. ! Make sure arithmetic if expressions are non-complex numeric exprs.
INTEGER I INTEGER I
COMPLEX Z COMPLEX Z
LOGICAL L LOGICAL L
INTEGER, DIMENSION (2) :: B INTEGER, DIMENSION (2) :: B
if ( I ) 100, 200, 300 if ( I ) 100, 200, 300
Show All 23 Lines

flang/test/Semantics/if_construct01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Simple check that if constructs are ok. ! Simple check that if constructs are ok.
if (a < b) then if (a < b) then
a = 1 a = 1
end if end if
if (a < b) then if (a < b) then
a = 2 a = 2
▲ Show 20 Lines • Show All 43 Lines • Show Last 20 Lines

flang/test/Semantics/if_construct02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check that if constructs only accept scalar logical expressions. ! Check that if constructs only accept scalar logical expressions.
! TODO: expand the test to check this restriction for more types. ! TODO: expand the test to check this restriction for more types.
INTEGER :: I INTEGER :: I
LOGICAL, DIMENSION (2) :: B LOGICAL, DIMENSION (2) :: B
!ERROR: Must be a scalar value, but is a rank-1 array !ERROR: Must be a scalar value, but is a rank-1 array
if ( B ) then if ( B ) then
▲ Show 20 Lines • Show All 113 Lines • Show Last 20 Lines

flang/test/Semantics/if_stmt01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Simple check that if statements are ok. ! Simple check that if statements are ok.
IF (A > 0.0) A = LOG (A) IF (A > 0.0) A = LOG (A)
END END

flang/test/Semantics/if_stmt02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!ERROR: IF statement is not allowed in IF statement !ERROR: IF statement is not allowed in IF statement
IF (A > 0.0) IF (B < 0.0) A = LOG (A) IF (A > 0.0) IF (B < 0.0) A = LOG (A)
END END

flang/test/Semantics/if_stmt03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check that non-logical expressions are not allowed. ! Check that non-logical expressions are not allowed.
! Check that non-scalar expressions are not allowed. ! Check that non-scalar expressions are not allowed.
! TODO: Insure all non-logicals are prohibited. ! TODO: Insure all non-logicals are prohibited.
LOGICAL, DIMENSION (2) :: B LOGICAL, DIMENSION (2) :: B
!ERROR: Must have LOGICAL type, but is REAL(4) !ERROR: Must have LOGICAL type, but is REAL(4)
IF (A) A = LOG (A) IF (A) A = LOG (A)
!ERROR: Must be a scalar value, but is a rank-1 array !ERROR: Must be a scalar value, but is a rank-1 array
IF (B) A = LOG (A) IF (B) A = LOG (A)
END END

flang/test/Semantics/implicit01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
implicit none implicit none
!ERROR: More than one IMPLICIT NONE statement !ERROR: More than one IMPLICIT NONE statement
implicit none(type) implicit none(type)
end subroutine end subroutine
subroutine s2 subroutine s2
implicit none(external) implicit none(external)
!ERROR: More than one IMPLICIT NONE statement !ERROR: More than one IMPLICIT NONE statement
implicit none implicit none
end subroutine end subroutine

flang/test/Semantics/implicit02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
implicit none implicit none
!ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement
implicit integer(a-z) implicit integer(a-z)
end subroutine end subroutine
subroutine s2 subroutine s2
implicit none(type) implicit none(type)
!ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement
implicit integer(a-z) implicit integer(a-z)
end subroutine end subroutine

flang/test/Semantics/implicit03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
implicit integer(a-z) implicit integer(a-z)
!ERROR: IMPLICIT NONE statement after IMPLICIT statement !ERROR: IMPLICIT NONE statement after IMPLICIT statement
implicit none implicit none
end subroutine end subroutine
subroutine s2 subroutine s2
implicit integer(a-z) implicit integer(a-z)
!ERROR: IMPLICIT NONE(TYPE) after IMPLICIT statement !ERROR: IMPLICIT NONE(TYPE) after IMPLICIT statement
implicit none(type) implicit none(type)
end subroutine end subroutine

flang/test/Semantics/implicit04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s subroutine s
parameter(a=1.0) parameter(a=1.0)
!ERROR: IMPLICIT NONE statement after PARAMETER statement !ERROR: IMPLICIT NONE statement after PARAMETER statement
implicit none implicit none
end subroutine end subroutine

flang/test/Semantics/implicit05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s subroutine s
!ERROR: 'a' does not follow 'b' alphabetically !ERROR: 'a' does not follow 'b' alphabetically
implicit integer(b-a) implicit integer(b-a)
end end

flang/test/Semantics/implicit06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
implicit integer(a-c) implicit integer(a-c)
!ERROR: More than one implicit type specified for 'c' !ERROR: More than one implicit type specified for 'c'
implicit real(c-g) implicit real(c-g)
end end
subroutine s2 subroutine s2
implicit integer(a-c) implicit integer(a-c)
implicit real(8)(d) implicit real(8)(d)
!ERROR: More than one implicit type specified for 'a' !ERROR: More than one implicit type specified for 'a'
implicit integer(f), real(a) implicit integer(f), real(a)
end end

flang/test/Semantics/implicit07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
implicit none(external) implicit none(external)
external x external x
integer :: f, i integer :: f, i
call x call x
!ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL) !ERROR: 'y' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
call y call y
!ERROR: 'f' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL) !ERROR: 'f' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
i = f() i = f()
block block
!ERROR: 'z' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL) !ERROR: 'z' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
call z call z
end block end block
end end

flang/test/Semantics/implicit08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
block block
!ERROR: IMPLICIT statement is not allowed in a BLOCK construct !ERROR: IMPLICIT statement is not allowed in a BLOCK construct
implicit logical(a) implicit logical(a)
end block end block
end subroutine end subroutine

flang/test/Semantics/implicit09.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fimplicit-none-type-never ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fimplicit-none-type-never
! REQUIRES: shell
subroutine s1 subroutine s1
implicit none implicit none
i = j + k ! would be error without -fimplicit-none-type-never i = j + k ! would be error without -fimplicit-none-type-never
end end
subroutine s2(a, n) subroutine s2(a, n)
implicit none implicit none
real :: a(n) ! would be error without -fimplicit-none-type-never real :: a(n) ! would be error without -fimplicit-none-type-never
integer :: n integer :: n
end end

flang/test/Semantics/implicit10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fimplicit-none ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fimplicit-none
! REQUIRES: shell
!ERROR: No explicit type declared for 'f' !ERROR: No explicit type declared for 'f'
function f() function f()
!ERROR: No explicit type declared for 'x' !ERROR: No explicit type declared for 'x'
f = x f = x
end end

flang/test/Semantics/implicit11.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test use of implicitly declared variable in specification expression ! Test use of implicitly declared variable in specification expression
subroutine s1() subroutine s1()
m = 1 m = 1
contains contains
subroutine s1a() subroutine s1a()
implicit none implicit none
▲ Show 20 Lines • Show All 52 Lines • Show Last 20 Lines

flang/test/Semantics/init01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Initializer error tests ! Initializer error tests
subroutine objectpointers(j) subroutine objectpointers(j)
integer, intent(in) :: j integer, intent(in) :: j
real, allocatable, target, save :: x1 real, allocatable, target, save :: x1
real, codimension[*], target, save :: x2 real, codimension[*], target, save :: x2
real, save :: x3 real, save :: x3
real, target :: x4 real, target :: x4
▲ Show 20 Lines • Show All 87 Lines • Show Last 20 Lines

flang/test/Semantics/int-literals.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Fortran syntax considers signed int literals in complex literals ! Fortran syntax considers signed int literals in complex literals
! to be a distinct production, not an application of unary +/- to ! to be a distinct production, not an application of unary +/- to
! an unsigned int literal, so they're used here to test overflow ! an unsigned int literal, so they're used here to test overflow
! on signed int literal constants. The literals are tested here ! on signed int literal constants. The literals are tested here
! as part of expressions that name resolution must analyze. ! as part of expressions that name resolution must analyze.
complex, parameter :: okj1 = 127_1, okz1 = (+127_1, -128_1) complex, parameter :: okj1 = 127_1, okz1 = (+127_1, -128_1)
!ERROR: Integer literal is too large for INTEGER(KIND=1) !ERROR: Integer literal is too large for INTEGER(KIND=1)
▲ Show 20 Lines • Show All 44 Lines • Show Last 20 Lines

flang/test/Semantics/io01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
character(len=20) :: access = "direcT" character(len=20) :: access = "direcT"
character(len=20) :: access_(2) = (/"direcT", "streaM"/) character(len=20) :: access_(2) = (/"direcT", "streaM"/)
character(len=20) :: action_(2) = (/"reaD ", "writE"/) character(len=20) :: action_(2) = (/"reaD ", "writE"/)
character(len=20) :: asynchronous_(2) = (/"nO ", "yeS"/) character(len=20) :: asynchronous_(2) = (/"nO ", "yeS"/)
character(len=20) :: blank_(2) = (/"nulL", "zerO"/) character(len=20) :: blank_(2) = (/"nulL", "zerO"/)
character(len=20) :: decimal_(2) = (/'commA', 'poinT'/) character(len=20) :: decimal_(2) = (/'commA', 'poinT'/)
character(len=20) :: delim_(2) = (/"nonE ", "quotE"/) character(len=20) :: delim_(2) = (/"nonE ", "quotE"/)
character(len=20) :: encoding_(2) = (/"defaulT", "utF-8 "/) character(len=20) :: encoding_(2) = (/"defaulT", "utF-8 "/)
▲ Show 20 Lines • Show All 128 Lines • Show Last 20 Lines

flang/test/Semantics/io02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
integer :: unit10 = 10 integer :: unit10 = 10
integer :: unit11 = 11 integer :: unit11 = 11
integer, parameter :: const_stat = 6666 integer, parameter :: const_stat = 6666
integer(kind=1) :: stat1 integer(kind=1) :: stat1
integer(kind=8) :: stat8 integer(kind=8) :: stat8
character(len=55) :: msg character(len=55) :: msg
Show All 27 Lines

flang/test/Semantics/io03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
character(kind=1,len=50) internal_file character(kind=1,len=50) internal_file
character(kind=2,len=50) internal_file2 character(kind=2,len=50) internal_file2
character(kind=4,len=50) internal_file4 character(kind=4,len=50) internal_file4
character(kind=1,len=50) internal_fileA(20) character(kind=1,len=50) internal_fileA(20)
character(kind=1,len=111) msg character(kind=1,len=111) msg
character(20) advance character(20) advance
character(20) :: cvar; character(20) :: cvar;
character, parameter :: const_internal_file = "(I6)" character, parameter :: const_internal_file = "(I6)"
▲ Show 20 Lines • Show All 174 Lines • Show Last 20 Lines

flang/test/Semantics/io04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
character(kind=1,len=50) internal_file character(kind=1,len=50) internal_file
character(kind=1,len=100) msg character(kind=1,len=100) msg
character(20) sign character(20) sign
character, parameter :: const_internal_file = "(I6)" character, parameter :: const_internal_file = "(I6)"
integer*1 stat1, id1 integer*1 stat1, id1
integer*2 stat2 integer*2 stat2
integer*4 stat4 integer*4 stat4
integer*8 stat8 integer*8 stat8
▲ Show 20 Lines • Show All 131 Lines • Show Last 20 Lines

flang/test/Semantics/io05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
character*20 c(25), cv character*20 c(25), cv
character(kind=1,len=59) msg character(kind=1,len=59) msg
character, parameter :: const_round = "c'est quoi?" character, parameter :: const_round = "c'est quoi?"
logical*2 v(5), lv logical*2 v(5), lv
integer*1 stat1 integer*1 stat1
integer*2 stat4 integer*2 stat4
integer*8 stat8, iv integer*8 stat8, iv
integer, parameter :: const_id = 1 integer, parameter :: const_id = 1
▲ Show 20 Lines • Show All 58 Lines • Show Last 20 Lines

flang/test/Semantics/io06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
character(kind=1,len=100) msg1 character(kind=1,len=100) msg1
character(kind=2,len=200) msg2 character(kind=2,len=200) msg2
character, parameter :: const_msg = 'doof' character, parameter :: const_msg = 'doof'
integer(1) stat1 integer(1) stat1
integer(2) stat2 integer(2) stat2
integer(8) stat8 integer(8) stat8
open(10) open(10)
Show All 39 Lines

flang/test/Semantics/io07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
1001 format(A) 1001 format(A)
!ERROR: Format statement must be labeled !ERROR: Format statement must be labeled
format(A) format(A)
2001 format(3I8, 3Z8) 2001 format(3I8, 3Z8)
2002 format(3I8, Z8) 2002 format(3I8, Z8)
2003 format( 3 I 8 , 3 Z 8 ) 2003 format( 3 I 8 , 3 Z 8 )
▲ Show 20 Lines • Show All 73 Lines • Show Last 20 Lines

flang/test/Semantics/io08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
write(*,*) write(*,*)
write(*,'()') write(*,'()')
write(*,'(A)') write(*,'(A)')
write(*,'(2X:2X)') write(*,'(2X:2X)')
write(*,'(2X/2X)') write(*,'(2X/2X)')
write(*,'(3/2X)') write(*,'(3/2X)')
write(*,'(3PF5.2)') write(*,'(3PF5.2)')
write(*,'(+3PF5.2)') write(*,'(+3PF5.2)')
▲ Show 20 Lines • Show All 300 Lines • Show Last 20 Lines

flang/test/Semantics/io09.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!ERROR: String edit descriptor in READ format expression !ERROR: String edit descriptor in READ format expression
read(*,'("abc")') read(*,'("abc")')
!ERROR: String edit descriptor in READ format expression !ERROR: String edit descriptor in READ format expression
!ERROR: Unterminated format expression !ERROR: Unterminated format expression
read(*,'("abc)') read(*,'("abc)')
!ERROR: 'H' edit descriptor in READ format expression !ERROR: 'H' edit descriptor in READ format expression
Show All 9 Lines

flang/test/Semantics/io10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -pedantic ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -pedantic
! REQUIRES: shell
write(*, '(B0)') write(*, '(B0)')
write(*, '(B3)') write(*, '(B3)')
!WARNING: Expected 'B' edit descriptor 'w' value !WARNING: Expected 'B' edit descriptor 'w' value
write(*, '(B)') write(*, '(B)')
!WARNING: Expected 'EN' edit descriptor 'w' value !WARNING: Expected 'EN' edit descriptor 'w' value
Show All 29 Lines

flang/test/Semantics/io11.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for defined input/output. See 12.6.4.8 and 15.4.3.2, and C777 ! Tests for defined input/output. See 12.6.4.8 and 15.4.3.2, and C777
module m1 module m1
type,public :: t type,public :: t
integer c integer c
contains contains
procedure, nopass :: tbp=>formattedReadProc !Error, NOPASS not allowed procedure, nopass :: tbp=>formattedReadProc !Error, NOPASS not allowed
!ERROR: Defined input/output procedure 'tbp' may not have NOPASS attribute !ERROR: Defined input/output procedure 'tbp' may not have NOPASS attribute
▲ Show 20 Lines • Show All 607 Lines • Show Last 20 Lines

flang/test/Semantics/kinds02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C712 The value of scalar-int-constant-expr shall be nonnegative and ! C712 The value of scalar-int-constant-expr shall be nonnegative and
! shall specify a representation method that exists on the processor. ! shall specify a representation method that exists on the processor.
! C714 The value of kind-param shall be nonnegative. ! C714 The value of kind-param shall be nonnegative.
! C715 The value of kind-param shall specify a representation method that ! C715 The value of kind-param shall specify a representation method that
! exists on the processor. ! exists on the processor.
! C719 The value of scalar-int-constant-expr shall be nonnegative and shall ! C719 The value of scalar-int-constant-expr shall be nonnegative and shall
! specify a representation method that exists on the processor. ! specify a representation method that exists on the processor.
! C725 The optional comma in a length-selector is permitted only if no ! C725 The optional comma in a length-selector is permitted only if no
▲ Show 20 Lines • Show All 82 Lines • Show Last 20 Lines

flang/test/Semantics/kinds04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C716 If both kind-param and exponent-letter appear, exponent-letter ! C716 If both kind-param and exponent-letter appear, exponent-letter
! shall be E. ! shall be E.
! C717 The value of kind-param shall specify an approximation method that ! C717 The value of kind-param shall specify an approximation method that
! exists on the processor. ! exists on the processor.
subroutine s(var) subroutine s(var)
real :: realvar1 = 4.0E6_4 real :: realvar1 = 4.0E6_4
real :: realvar2 = 4.0D6 real :: realvar2 = 4.0D6
real :: realvar3 = 4.0Q6 real :: realvar3 = 4.0Q6
Show All 19 Lines

flang/test/Semantics/label11.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C739 If END TYPE is followed by a type-name, the type-name shall be the ! C739 If END TYPE is followed by a type-name, the type-name shall be the
! same as that in the corresponding derived-type-stmt. ! same as that in the corresponding derived-type-stmt.
! C1401 The program-name shall not be included in the end-program-stmt unless ! C1401 The program-name shall not be included in the end-program-stmt unless
! the optional program-stmt is used. If included, it shall be identical to the ! the optional program-stmt is used. If included, it shall be identical to the
! program-name specified in the program-stmt. ! program-name specified in the program-stmt.
! C1402 If the module-name is specified in the end-module-stmt, it shall be ! C1402 If the module-name is specified in the end-module-stmt, it shall be
! identical to the module-name specified in the module-stmt. ! identical to the module-name specified in the module-stmt.
! C1413 If a submodule-name appears in the end-submodule-stmt, it shall be ! C1413 If a submodule-name appears in the end-submodule-stmt, it shall be
▲ Show 20 Lines • Show All 57 Lines • Show Last 20 Lines

flang/test/Semantics/label16.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine x(n) subroutine x(n)
call x1(n) call x1(n)
if (n == 0) goto 88 if (n == 0) goto 88
print*, 'x' print*, 'x'
contains contains
subroutine x1(n) subroutine x1(n)
if (n == 0) goto 77 ! ok if (n == 0) goto 77 ! ok
print*, 'x1' print*, 'x1'
!ERROR: Label '88' was not found !ERROR: Label '88' was not found
goto 88 goto 88
77 end subroutine x1 77 end subroutine x1
88 end 88 end

flang/test/Semantics/misc-declarations.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Miscellaneous constraint and requirement checking on declarations: ! Miscellaneous constraint and requirement checking on declarations:
! - 8.5.6.2 & 8.5.6.3 constraints on coarrays ! - 8.5.6.2 & 8.5.6.3 constraints on coarrays
! - 8.5.19 constraints on the VOLATILE attribute ! - 8.5.19 constraints on the VOLATILE attribute
module m module m
!ERROR: 'mustbedeferred' is an ALLOCATABLE coarray and must have a deferred coshape !ERROR: 'mustbedeferred' is an ALLOCATABLE coarray and must have a deferred coshape
real, allocatable :: mustBeDeferred[*] ! C827 real, allocatable :: mustBeDeferred[*] ! C827
!ERROR: Component 'mustbeexplicit' is a non-ALLOCATABLE coarray and must have an explicit coshape !ERROR: Component 'mustbeexplicit' is a non-ALLOCATABLE coarray and must have an explicit coshape
Show All 32 Lines

flang/test/Semantics/modfile41.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test USE statements that use same module multiple times mixed with rename ! Test USE statements that use same module multiple times mixed with rename
! clauses and ONLY clauses ! clauses and ONLY clauses
module m1 module m1
integer :: a = 1 integer :: a = 1
integer :: b = 2 integer :: b = 2
end module m1 end module m1
module m2 module m2
integer :: a = 3 integer :: a = 3
▲ Show 20 Lines • Show All 87 Lines • Show Last 20 Lines

flang/test/Semantics/namelist01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test for checking namelist constraints, C8103-C8105 ! Test for checking namelist constraints, C8103-C8105
module dup module dup
integer dupName integer dupName
integer uniqueName integer uniqueName
end module dup end module dup
subroutine C8103a(x) subroutine C8103a(x)
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

flang/test/Semantics/null-init.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests valid and invalid NULL initializers ! Tests valid and invalid NULL initializers
module m1 module m1
implicit none implicit none
!ERROR: No explicit type declared for 'null' !ERROR: No explicit type declared for 'null'
private :: null private :: null
end module end module
▲ Show 20 Lines • Show All 66 Lines • Show Last 20 Lines

flang/test/Semantics/null01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! NULL() intrinsic function error tests ! NULL() intrinsic function error tests
subroutine test subroutine test
interface interface
subroutine s0 subroutine s0
end subroutine end subroutine
subroutine s1(j) subroutine s1(j)
integer, intent(in) :: j integer, intent(in) :: j
▲ Show 20 Lines • Show All 68 Lines • Show Last 20 Lines

flang/test/Semantics/nullify01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test that NULLIFY works ! Test that NULLIFY works
Module share Module share
Real, Pointer :: rp Real, Pointer :: rp
Procedure(Real), Pointer :: mprp Procedure(Real), Pointer :: mprp
End Module share End Module share
Program nullifytest Program nullifytest
Show All 33 Lines

flang/test/Semantics/nullify02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in NULLIFY statements ! Check for semantic errors in NULLIFY statements
INTEGER, PARAMETER :: maxvalue=1024 INTEGER, PARAMETER :: maxvalue=1024
Type dt Type dt
Integer :: l = 3 Integer :: l = 3
End Type End Type
Type t Type t
Show All 40 Lines

flang/test/Semantics/num_images.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check for semantic errors in num_images() function calls ! Check for semantic errors in num_images() function calls
subroutine test subroutine test
! correct calls, should produce no errors ! correct calls, should produce no errors
print *, num_images() print *, num_images()
print *, num_images(team_number=1) print *, num_images(team_number=1)
print *, num_images(1) print *, num_images(1)
Show All 21 Lines

flang/test/Semantics/omp-allocate-directive.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! Check OpenMP Allocate directive ! Check OpenMP Allocate directive
use omp_lib use omp_lib
! 2.11.3 declarative allocate ! 2.11.3 declarative allocate
! 2.11.3 executable allocate ! 2.11.3 executable allocate
real, dimension (:,:), allocatable :: darray real, dimension (:,:), allocatable :: darray
integer :: a, b, x, y, m, n, t, z integer :: a, b, x, y, m, n, t, z
Show All 16 Lines

flang/test/Semantics/omp-allocate01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! The allocate directive must appear in the same scope as the declarations of ! The allocate directive must appear in the same scope as the declarations of
! each of its list items and must follow all such declarations. ! each of its list items and must follow all such declarations.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: x integer :: x
Show All 15 Lines

flang/test/Semantics/omp-allocate02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! At most one allocator clause can appear on the allocate directive. ! At most one allocator clause can appear on the allocate directive.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: x, y integer :: x, y
integer :: a, b integer :: a, b
Show All 15 Lines

flang/test/Semantics/omp-allocate03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! A variable that is part of another variable (as an array or ! A variable that is part of another variable (as an array or
! structure element) cannot appear in an allocate directive. ! structure element) cannot appear in an allocate directive.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
type my_type type my_type
Show All 15 Lines

flang/test/Semantics/omp-allocate04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! Only the allocator clause is allowed on the allocate directive ! Only the allocator clause is allowed on the allocate directive
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: x, y integer :: x, y
!$omp allocate(x) allocator(omp_default_mem_alloc) !$omp allocate(x) allocator(omp_default_mem_alloc)
!ERROR: PRIVATE clause is not allowed on the ALLOCATE directive !ERROR: PRIVATE clause is not allowed on the ALLOCATE directive
!$omp allocate(y) private(y) !$omp allocate(y) private(y)
end subroutine allocate end subroutine allocate

flang/test/Semantics/omp-allocate05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! allocate directives that appear in a target region must specify an allocator ! allocate directives that appear in a target region must specify an allocator
! clause unless a requires directive with the dynamic_allocators clause is present ! clause unless a requires directive with the dynamic_allocators clause is present
! in the same compilation unit. ! in the same compilation unit.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
Show All 15 Lines

flang/test/Semantics/omp-allocate06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! List items specified in the allocate directive must not have the ALLOCATABLE attribute unless the directive is associated with an ! List items specified in the allocate directive must not have the ALLOCATABLE attribute unless the directive is associated with an
! allocate statement. ! allocate statement.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
integer :: a, b, x integer :: a, b, x
Show All 9 Lines

flang/test/Semantics/omp-allocate07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! A type parameter inquiry cannot appear in an allocate directive. ! A type parameter inquiry cannot appear in an allocate directive.
subroutine allocate() subroutine allocate()
use omp_lib use omp_lib
type my_type(kind_param, len_param) type my_type(kind_param, len_param)
INTEGER, KIND :: kind_param INTEGER, KIND :: kind_param
Show All 26 Lines

flang/test/Semantics/omp-allocate08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.11.3 allocate Directive ! 2.11.3 allocate Directive
! If list items within the ALLOCATE directive have the SAVE attribute, are a common block name, or are declared in the scope of a ! If list items within the ALLOCATE directive have the SAVE attribute, are a common block name, or are declared in the scope of a
! module, then only predefined memory allocator parameters can be used in the allocator clause ! module, then only predefined memory allocator parameters can be used in the allocator clause
module AllocateModule module AllocateModule
INTEGER :: z INTEGER :: z
end module end module
Show All 33 Lines

flang/test/Semantics/omp-atomic.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
use omp_lib use omp_lib
! Check OpenMP 2.13.6 atomic Construct ! Check OpenMP 2.13.6 atomic Construct
a = 1.0 a = 1.0
!$omp parallel num_threads(4) !$omp parallel num_threads(4)
!$omp atomic seq_cst, read !$omp atomic seq_cst, read
b = a b = a
▲ Show 20 Lines • Show All 49 Lines • Show Last 20 Lines

flang/test/Semantics/omp-atomic01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! Semantic checks for OpenMP 5.0 standard 2.17.7 atomic Construct. ! Semantic checks for OpenMP 5.0 standard 2.17.7 atomic Construct.
use omp_lib use omp_lib
implicit none implicit none
integer :: i, j = 10, k=-100, a integer :: i, j = 10, k=-100, a
! 2.17.7.1 ! 2.17.7.1
! Handled inside parser. ! Handled inside parser.
! OpenMP constructs may not be encountered during execution of an atomic region ! OpenMP constructs may not be encountered during execution of an atomic region
▲ Show 20 Lines • Show All 325 Lines • Show Last 20 Lines

flang/test/Semantics/omp-clause-validity01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
use omp_lib use omp_lib
! Check OpenMP clause validity for the following directives: ! Check OpenMP clause validity for the following directives:
! !
! 2.5 PARALLEL construct ! 2.5 PARALLEL construct
! 2.7.1 Loop construct ! 2.7.1 Loop construct
! ... ! ...
integer :: b = 128 integer :: b = 128
▲ Show 20 Lines • Show All 555 Lines • Show Last 20 Lines

flang/test/Semantics/omp-combined-constructs.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
program main program main
implicit none implicit none
integer :: N integer :: N
integer :: i integer :: i
real(8) :: a(256), b(256) real(8) :: a(256), b(256)
N = 256 N = 256
▲ Show 20 Lines • Show All 502 Lines • Show Last 20 Lines

flang/test/Semantics/omp-copyin01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A list item that appears in a copyin clause must be threadprivate ! A list item that appears in a copyin clause must be threadprivate
program omp_copyin program omp_copyin
integer :: i integer :: i
integer, save :: k integer, save :: k
Show All 25 Lines

flang/test/Semantics/omp-copyin02.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A common block name that appears in a copyin clause must be declared to be ! A common block name that appears in a copyin clause must be declared to be
! a common block in the same scoping unit in which the copyin clause appears. ! a common block in the same scoping unit in which the copyin clause appears.
subroutine copyin() subroutine copyin()
integer :: a = 10 integer :: a = 10
common /cmn/ a common /cmn/ a
Show All 14 Lines

flang/test/Semantics/omp-copyin03.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A list item that appears in a copyin clause must be threadprivate. ! A list item that appears in a copyin clause must be threadprivate.
! Named variables appearing in a threadprivate common block may be specified ! Named variables appearing in a threadprivate common block may be specified
! It is not necessary to specify the whole common block. ! It is not necessary to specify the whole common block.
program omp_copyin program omp_copyin
Show All 24 Lines

flang/test/Semantics/omp-copyin04.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A list item that appears in a copyin clause must be threadprivate ! A list item that appears in a copyin clause must be threadprivate
program omp_copyin program omp_copyin
integer :: i integer :: i
integer, save :: j, k integer, save :: j, k
Show All 17 Lines

flang/test/Semantics/omp-copyin05.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.1 copyin Clause ! 2.15.4.1 copyin Clause
! A common block name that appears in a copyin clause must be declared to be ! A common block name that appears in a copyin clause must be declared to be
! a common block in the same scoping unit in which the copyin clause appears. ! a common block in the same scoping unit in which the copyin clause appears.
subroutine copyin() subroutine copyin()
call copyin_clause() call copyin_clause()
Show All 14 Lines

flang/test/Semantics/omp-copyprivate01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.2 copyprivate Clause ! 2.15.4.2 copyprivate Clause
! A list item that appears in a copyprivate clause may not appear in a ! A list item that appears in a copyprivate clause may not appear in a
! private or firstprivate clause on the single construct. ! private or firstprivate clause on the single construct.
program omp_copyprivate program omp_copyprivate
integer :: a(10), b(10), k integer :: a(10), b(10), k
Show All 18 Lines

flang/test/Semantics/omp-copyprivate02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.2 copyprivate Clause ! 2.15.4.2 copyprivate Clause
! Pointers with the INTENT(IN) attribute may not appear in a copyprivate clause. ! Pointers with the INTENT(IN) attribute may not appear in a copyprivate clause.
subroutine omp_copyprivate(p) subroutine omp_copyprivate(p)
integer :: a(10), b(10), c(10) integer :: a(10), b(10), c(10)
integer, pointer, intent(in) :: p integer, pointer, intent(in) :: p
Show All 14 Lines

flang/test/Semantics/omp-copyprivate03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.4.2 copyprivate Clause ! 2.15.4.2 copyprivate Clause
! All list items that appear in the copyprivate clause must be either ! All list items that appear in the copyprivate clause must be either
! threadprivate or private in the enclosing context. ! threadprivate or private in the enclosing context.
program omp_copyprivate program omp_copyprivate
integer :: a(10), b(10) integer :: a(10), b(10)
integer, save :: k integer, save :: k
Show All 30 Lines

flang/test/Semantics/omp-declarative-directive.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! Check OpenMP declarative directives ! Check OpenMP declarative directives
!TODO: all internal errors !TODO: all internal errors
! enable declare-reduction example after name resolution ! enable declare-reduction example after name resolution
! 2.8.2 declare-simd ! 2.8.2 declare-simd
▲ Show 20 Lines • Show All 62 Lines • Show Last 20 Lines

flang/test/Semantics/omp-default.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.1 default Clause ! 2.15.3.1 default Clause
program omp_default program omp_default
integer :: a(10), b(10), c(10),i,k integer :: a(10), b(10), c(10),i,k
!ERROR: At most one DEFAULT clause can appear on the PARALLEL directive !ERROR: At most one DEFAULT clause can appear on the PARALLEL directive
!$omp parallel default(shared), default(private) !$omp parallel default(shared), default(private)
do i = 1, 10 do i = 1, 10
c(i) = a(i) + b(i) + k c(i) = a(i) + b(i) + k
Show All 25 Lines

flang/test/Semantics/omp-default02.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.1 default Clause - a positive test case. ! 2.15.3.1 default Clause - a positive test case.
!DEF: /omp_default MainProgram !DEF: /omp_default MainProgram
program omp_default program omp_default
!DEF: /omp_default/a ObjectEntity INTEGER(4) !DEF: /omp_default/a ObjectEntity INTEGER(4)
!DEF: /omp_default/b ObjectEntity INTEGER(4) !DEF: /omp_default/b ObjectEntity INTEGER(4)
!DEF: /omp_default/c ObjectEntity INTEGER(4) !DEF: /omp_default/c ObjectEntity INTEGER(4)
▲ Show 20 Lines • Show All 48 Lines • Show Last 20 Lines

flang/test/Semantics/omp-depend01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.13.9 Depend Clause ! 2.13.9 Depend Clause
! List items used in depend clauses cannot be zero-length array sections. ! List items used in depend clauses cannot be zero-length array sections.
program omp_depend program omp_depend
integer :: a(10) , b(10,10) integer :: a(10) , b(10,10)
a = 10 a = 10
b = 20 b = 20
Show All 19 Lines

flang/test/Semantics/omp-depend02.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.13.9 Depend Clause ! 2.13.9 Depend Clause
! A variable that is part of another variable ! A variable that is part of another variable
! (such as an element of a structure) but is not an array element or ! (such as an element of a structure) but is not an array element or
! an array section cannot appear in a DEPEND clause ! an array section cannot appear in a DEPEND clause
subroutine vec_mult(N) subroutine vec_mult(N)
implicit none implicit none
Show All 40 Lines

flang/test/Semantics/omp-depend03.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.13.9 Depend Clause ! 2.13.9 Depend Clause
! Coarrays are not supported in depend clause ! Coarrays are not supported in depend clause
program omp_depend_coarray program omp_depend_coarray
integer :: a(3)[*], b(3) , k integer :: a(3)[*], b(3) , k
a(:) = this_image() a(:) = this_image()
Show All 15 Lines

flang/test/Semantics/omp-device-constructs.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! Check OpenMP clause validity for the following directives: ! Check OpenMP clause validity for the following directives:
! 2.10 Device constructs ! 2.10 Device constructs
program main program main
real(8) :: arrayA(256), arrayB(256) real(8) :: arrayA(256), arrayB(256)
integer :: N integer :: N
arrayA = 1.414 arrayA = 1.414
▲ Show 20 Lines • Show All 225 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do-collapse-positivecases.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Collapse Clause Positive cases ! 2.7.1 Collapse Clause Positive cases
!DEF: /omp_docollapse MainProgram !DEF: /omp_docollapse MainProgram
program omp_docollapse program omp_docollapse
!DEF: /omp_docollapse/i ObjectEntity INTEGER(4) !DEF: /omp_docollapse/i ObjectEntity INTEGER(4)
!DEF: /omp_docollapse/j ObjectEntity INTEGER(4) !DEF: /omp_docollapse/j ObjectEntity INTEGER(4)
!DEF: /omp_docollapse/k ObjectEntity INTEGER(4) !DEF: /omp_docollapse/k ObjectEntity INTEGER(4)
Show All 27 Lines

flang/test/Semantics/omp-do-collapse.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Collapse Clause ! 2.7.1 Collapse Clause
program omp_doCollapse program omp_doCollapse
integer:: i,j integer:: i,j
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
do i = 1,10 do i = 1,10
do j = 1, 10 do j = 1, 10
Show All 17 Lines

flang/test/Semantics/omp-do-cycle.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Check for cycle statements leaving an OpenMP structured block ! Check for cycle statements leaving an OpenMP structured block
program omp_do program omp_do
integer i, j, k integer i, j, k
!$omp parallel !$omp parallel
foo: do i = 0, 10 foo: do i = 0, 10
Show All 35 Lines

flang/test/Semantics/omp-do-ordered-positivecases.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Ordered Clause positive cases. ! 2.7.1 Ordered Clause positive cases.
!DEF: /omp_doordered MainProgram !DEF: /omp_doordered MainProgram
program omp_doordered program omp_doordered
!DEF: /omp_doordered/i ObjectEntity INTEGER(4) !DEF: /omp_doordered/i ObjectEntity INTEGER(4)
!DEF: /omp_doordered/j ObjectEntity INTEGER(4) !DEF: /omp_doordered/j ObjectEntity INTEGER(4)
integer i, j integer i, j
▲ Show 20 Lines • Show All 58 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do-ordered.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Ordered Clause ! 2.7.1 Ordered Clause
program omp_doOrdered program omp_doOrdered
integer:: i,j integer:: i,j
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do ordered(3) !$omp do ordered(3)
do i = 1,10 do i = 1,10
▲ Show 20 Lines • Show All 49 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do-schedule01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Schedule Clause ! 2.7.1 Schedule Clause
program omp_doSchedule program omp_doSchedule
integer :: i,n integer :: i,n
real :: a(100), y(100), z(100) real :: a(100), y(100), z(100)
!ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression !ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression
!$omp do schedule(static, -1) !$omp do schedule(static, -1)
do i=2,n+1 do i=2,n+1
y(i) = z(i-1) + a(i) y(i) = z(i-1) + a(i)
end do end do
!$omp end do !$omp end do
end program omp_doSchedule end program omp_doSchedule

flang/test/Semantics/omp-do-schedule02.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Schedule Clause ! 2.7.1 Schedule Clause
program omp_doSchedule program omp_doSchedule
integer :: i,n integer :: i,n
real :: a(100), y(100), z(100) real :: a(100), y(100), z(100)
integer,parameter :: b = 10 integer,parameter :: b = 10
integer,parameter :: c = 11 integer,parameter :: c = 11
!ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression !ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression
!$omp do schedule(static,b-c) !$omp do schedule(static,b-c)
do i=2,n+1 do i=2,n+1
y(i) = z(i-1) + a(i) y(i) = z(i-1) + a(i)
end do end do
!$omp end do !$omp end do
end program omp_doSchedule end program omp_doSchedule

flang/test/Semantics/omp-do01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The loop iteration variable may not appear in a firstprivate directive. ! The loop iteration variable may not appear in a firstprivate directive.
program omp_do program omp_do
integer i, j, k integer i, j, k
!ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause. !ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause.
Show All 9 Lines

flang/test/Semantics/omp-do03.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! Semantic error for correct test case ! Semantic error for correct test case
program omp_do program omp_do
integer i, j, k integer i, j, k
integer :: a(10), b(10) integer :: a(10), b(10)
Show All 16 Lines

flang/test/Semantics/omp-do04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The loop iteration variable may not appear in a threadprivate directive. ! The loop iteration variable may not appear in a threadprivate directive.
program omp_do program omp_do
integer, save:: i, j, k,n integer, save:: i, j, k,n
!$omp threadprivate(k,j,i) !$omp threadprivate(k,j,i)
▲ Show 20 Lines • Show All 92 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do05.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct restrictions on single directive. ! 2.7.1 Loop Construct restrictions on single directive.
program omp_do program omp_do
integer n integer n
integer i,j,k integer i,j,k
▲ Show 20 Lines • Show All 191 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do06.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The ordered clause must be present on the loop construct if any ordered ! The ordered clause must be present on the loop construct if any ordered
! region ever binds to a loop region arising from the loop construct. ! region ever binds to a loop region arising from the loop construct.
program omp_do program omp_do
integer i, j, k integer i, j, k
Show All 24 Lines

flang/test/Semantics/omp-do08.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 129 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do09.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The do-loop cannot be a DO WHILE or a DO loop without loop control. ! The do-loop cannot be a DO WHILE or a DO loop without loop control.
program omp_do program omp_do
integer :: i = 0,k integer :: i = 0,k
!$omp do !$omp do
!ERROR: The DO loop cannot be a DO WHILE with DO directive. !ERROR: The DO loop cannot be a DO WHILE with DO directive.
Show All 17 Lines

flang/test/Semantics/omp-do10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
! The DO loop iteration variable must be of type integer. ! The DO loop iteration variable must be of type integer.
program omp_do program omp_do
real i, j, k real i, j, k
!$omp do !$omp do
!ERROR: The DO loop iteration variable must be of the type integer. !ERROR: The DO loop iteration variable must be of the type integer.
Show All 30 Lines

flang/test/Semantics/omp-do13.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 176 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do15.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 85 Lines • Show Last 20 Lines

flang/test/Semantics/omp-do16.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.1 Loop Construct ! 2.7.1 Loop Construct
program omp program omp
integer i, j, k integer i, j, k
!ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct. !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
!$omp do collapse(3) !$omp do collapse(3)
▲ Show 20 Lines • Show All 68 Lines • Show Last 20 Lines

flang/test/Semantics/omp-firstprivate01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.4 firstprivate Clause ! 2.15.3.4 firstprivate Clause
! Variables that appear in a firstprivate clause on a distribute or ! Variables that appear in a firstprivate clause on a distribute or
! worksharing constructs must not appear in the private or ! worksharing constructs must not appear in the private or
! reduction clause in a teams or parallel constructs in the outer context ! reduction clause in a teams or parallel constructs in the outer context
program omp_firstprivate program omp_firstprivate
integer :: i, a(10), b(10), c(10) integer :: i, a(10), b(10), c(10)
▲ Show 20 Lines • Show All 79 Lines • Show Last 20 Lines

flang/test/Semantics/omp-flush01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! 2.17.8 Flush construct [OpenMP 5.0] ! 2.17.8 Flush construct [OpenMP 5.0]
! memory-order-clause -> ! memory-order-clause ->
! acq_rel ! acq_rel
! release ! release
! acquire ! acquire
use omp_lib use omp_lib
implicit none implicit none
Show All 27 Lines

flang/test/Semantics/omp-flush02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! Check OpenMP 5.0 - 2.17.8 flush Construct ! Check OpenMP 5.0 - 2.17.8 flush Construct
! Restriction - ! Restriction -
! If memory-order-clause is release, acquire, or acq_rel, list items must not be specified on the flush directive. ! If memory-order-clause is release, acquire, or acq_rel, list items must not be specified on the flush directive.
use omp_lib use omp_lib
implicit none implicit none
▲ Show 20 Lines • Show All 77 Lines • Show Last 20 Lines

flang/test/Semantics/omp-lastprivate01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.5 lastprivate Clause ! 2.15.3.5 lastprivate Clause
! A variable that appears in a lastprivate clause must be definable. ! A variable that appears in a lastprivate clause must be definable.
module protected_var module protected_var
integer, protected :: p integer, protected :: p
end module protected_var end module protected_var
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/omp-lastprivate02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.5 lastprivate Clause ! 2.15.3.5 lastprivate Clause
! A list item that is private within a parallel region, or that appears in ! A list item that is private within a parallel region, or that appears in
! reduction clause of a parallel construct, must not appear in a ! reduction clause of a parallel construct, must not appear in a
! lastprivate clause on a worksharing construct if any of the corresponding ! lastprivate clause on a worksharing construct if any of the corresponding
! worksharing regions ever binds to any of the corresponding parallel regions. ! worksharing regions ever binds to any of the corresponding parallel regions.
program omp_lastprivate program omp_lastprivate
Show All 26 Lines

flang/test/Semantics/omp-linear-iter.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the ordered construct ! Various checks with the ordered construct
SUBROUTINE LINEAR_GOOD(N) SUBROUTINE LINEAR_GOOD(N)
INTEGER N, i, j, a, b(10) INTEGER N, i, j, a, b(10)
!$omp target !$omp target
!$omp teams !$omp teams
!$omp distribute parallel do simd linear(i) !$omp distribute parallel do simd linear(i)
▲ Show 20 Lines • Show All 76 Lines • Show Last 20 Lines

flang/test/Semantics/omp-loop-association.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! Check the association between OpenMPLoopConstruct and DoConstruct ! Check the association between OpenMPLoopConstruct and DoConstruct
integer :: b = 128 integer :: b = 128
integer :: c = 32 integer :: c = 32
integer, parameter :: num = 16 integer, parameter :: num = 16
N = 1024 N = 1024
▲ Show 20 Lines • Show All 117 Lines • Show Last 20 Lines

flang/test/Semantics/omp-loop-simd01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.8.3 Loop simd Construct ! 2.8.3 Loop simd Construct
! Semantic error for correct test case. ! Semantic error for correct test case.
program omp_loop_simd program omp_loop_simd
integer i, j, k, l integer i, j, k, l
k = 0; k = 0;
Show All 14 Lines

flang/test/Semantics/omp-nested-barrier.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the nesting of BARRIER construct ! Various checks with the nesting of BARRIER construct
program omp_nest_barrier program omp_nest_barrier
integer i, k, j integer i, k, j
k = 0; k = 0;
!$omp do !$omp do
▲ Show 20 Lines • Show All 157 Lines • Show Last 20 Lines

flang/test/Semantics/omp-nested-distribute.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! Check OpenMP clause validity for the following directives: ! Check OpenMP clause validity for the following directives:
! 2.10 Device constructs ! 2.10 Device constructs
program main program main
real(8) :: arrayA(256), arrayB(256) real(8) :: arrayA(256), arrayB(256)
integer :: N integer :: N
arrayA = 1.414 arrayA = 1.414
▲ Show 20 Lines • Show All 95 Lines • Show Last 20 Lines

flang/test/Semantics/omp-nested-master.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the nesting of MASTER construct ! Various checks with the nesting of MASTER construct
program omp_nest_master program omp_nest_master
integer i, k, j integer i, k, j
k = 0; k = 0;
!$omp do !$omp do
▲ Show 20 Lines • Show All 140 Lines • Show Last 20 Lines

flang/test/Semantics/omp-nested-simd.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the nesting of SIMD construct ! Various checks with the nesting of SIMD construct
SUBROUTINE NESTED_GOOD(N) SUBROUTINE NESTED_GOOD(N)
INTEGER N, I, J, K, A(10), B(10) INTEGER N, I, J, K, A(10), B(10)
!$OMP SIMD !$OMP SIMD
DO I = 1,N DO I = 1,N
!$OMP ATOMIC !$OMP ATOMIC
▲ Show 20 Lines • Show All 205 Lines • Show Last 20 Lines

flang/test/Semantics/omp-nested01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! Check OpenMP 2.17 Nesting of Regions ! Check OpenMP 2.17 Nesting of Regions
N = 1024 N = 1024
!$omp do !$omp do
do i = 1, N do i = 1, N
!ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
!$omp do !$omp do
Show All 31 Lines

flang/test/Semantics/omp-no-dowhile-in-parallel.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
subroutine bug48308(x,i) subroutine bug48308(x,i)
real :: x(:) real :: x(:)
integer :: i integer :: i
!$omp parallel firstprivate(i) !$omp parallel firstprivate(i)
do while (i>0) do while (i>0)
x(i) = i x(i) = i
i = i - 1 i = i - 1
Show All 19 Lines

flang/test/Semantics/omp-ordered-simd.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Various checks with the ordered construct ! Various checks with the ordered construct
SUBROUTINE WORK(I) SUBROUTINE WORK(I)
INTEGER I INTEGER I
END SUBROUTINE WORK END SUBROUTINE WORK
SUBROUTINE ORDERED_GOOD(N) SUBROUTINE ORDERED_GOOD(N)
▲ Show 20 Lines • Show All 139 Lines • Show Last 20 Lines

flang/test/Semantics/omp-parallel-private01.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 11 Lines

flang/test/Semantics/omp-parallel-private02.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
integer :: array(10) integer :: array(10)
do i = 1, 10 do i = 1, 10
Show All 11 Lines

flang/test/Semantics/omp-parallel-private03.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/omp-parallel-private04.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 parallel private Clause ! 2.15.3.3 parallel private Clause
program omp_parallel_private program omp_parallel_private
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/omp-parallel-shared01.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 11 Lines

flang/test/Semantics/omp-parallel-shared02.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
integer :: array(10) integer :: array(10)
do i = 1, 10 do i = 1, 10
Show All 11 Lines

flang/test/Semantics/omp-parallel-shared03.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/omp-parallel-shared04.f90

!RUN: %S/test_errors.sh %s %t %flang -fopenmp !RUN: %python %S/test_errors.py %s %t %flang -fopenmp
!REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause ! 2.15.3.2 parallel shared Clause
program omp_parallel_shared program omp_parallel_shared
integer :: i, j, a(10), b(10), c(10) integer :: i, j, a(10), b(10), c(10)
integer :: k = 10 integer :: k = 10
type my_type type my_type
integer :: array(10) integer :: array(10)
end type my_type end type my_type
Show All 19 Lines

flang/test/Semantics/omp-private01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 private Clause ! 2.15.3.3 private Clause
! Pointers with the INTENT(IN) attribute may not appear in a private clause. ! Pointers with the INTENT(IN) attribute may not appear in a private clause.
subroutine omp_private(p) subroutine omp_private(p)
integer :: a(10), b(10), c(10) integer :: a(10), b(10), c(10)
integer, pointer, intent(in) :: p integer, pointer, intent(in) :: p
Show All 11 Lines

flang/test/Semantics/omp-private02.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.3 private Clause ! 2.15.3.3 private Clause
! Variables that appear in namelist statements may not appear in a private clause. ! Variables that appear in namelist statements may not appear in a private clause.
module test module test
integer :: a, b, c integer :: a, b, c
namelist /nlist1/ a, b namelist /nlist1/ a, b
end module end module
Show All 37 Lines

flang/test/Semantics/omp-private03.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! Variables that appear in expressions for statement function definitions ! Variables that appear in expressions for statement function definitions
! may not appear in private, firstprivate or lastprivate clauses. ! may not appear in private, firstprivate or lastprivate clauses.
subroutine stmt_function(temp) subroutine stmt_function(temp)
integer :: i, p, q, r integer :: i, p, q, r
real :: c, f, s, v, t(10) real :: c, f, s, v, t(10)
Show All 30 Lines

flang/test/Semantics/omp-reduction01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
!ERROR: Invalid reduction operator in REDUCTION clause. !ERROR: Invalid reduction operator in REDUCTION clause.
!$omp parallel do reduction(**:k) !$omp parallel do reduction(**:k)
do i = 1, 10 do i = 1, 10
k = k ** 1 k = k ** 1
end do end do
!$omp end parallel do !$omp end parallel do
end program omp_reduction end program omp_reduction

flang/test/Semantics/omp-reduction02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
integer :: j = 10 integer :: j = 10
Show All 28 Lines

flang/test/Semantics/omp-reduction03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
subroutine omp_target(p) subroutine omp_target(p)
integer, pointer, intent(in) :: p integer, pointer, intent(in) :: p
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
Show All 9 Lines

flang/test/Semantics/omp-reduction04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_Reduction program omp_Reduction
integer :: i integer :: i
integer, parameter :: k = 10 integer, parameter :: k = 10
common /c/ a, b common /c/ a, b
!ERROR: Variable 'k' on the REDUCTION clause is not definable !ERROR: Variable 'k' on the REDUCTION clause is not definable
Show All 13 Lines

flang/test/Semantics/omp-reduction05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
integer :: a(10),b(10,10,10) integer :: a(10),b(10,10,10)
Show All 29 Lines

flang/test/Semantics/omp-reduction06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
integer :: a(10), b(10,10,10) integer :: a(10), b(10,10,10)
Show All 22 Lines

flang/test/Semantics/omp-reduction07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i,j,l integer :: i,j,l
integer :: k = 10 integer :: k = 10
!$omp parallel private(k) !$omp parallel private(k)
!ERROR: REDUCTION variable 'k' is PRIVATE in outer context must be shared in the parallel regions to which any of the worksharing regions arising from the worksharing construct bind. !ERROR: REDUCTION variable 'k' is PRIVATE in outer context must be shared in the parallel regions to which any of the worksharing regions arising from the worksharing construct bind.
▲ Show 20 Lines • Show All 117 Lines • Show Last 20 Lines

flang/test/Semantics/omp-reduction10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.15.3.6 Reduction Clause ! 2.15.3.6 Reduction Clause
program omp_reduction program omp_reduction
integer :: i integer :: i
integer :: k = 10 integer :: k = 10
!ERROR: Invalid reduction identifier in REDUCTION clause. !ERROR: Invalid reduction identifier in REDUCTION clause.
!$omp parallel do reduction(foo:k) !$omp parallel do reduction(foo:k)
do i = 1, 10 do i = 1, 10
k = foo(k) k = foo(k)
end do end do
!$omp end parallel do !$omp end parallel do
end program omp_reduction end program omp_reduction

flang/test/Semantics/omp-resolve01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! 2.4 An array section designates a subset of the elements in an array. Although ! 2.4 An array section designates a subset of the elements in an array. Although
! Substring shares similar syntax but cannot be treated as valid array section. ! Substring shares similar syntax but cannot be treated as valid array section.
character*8 c, b character*8 c, b
character a character a
b = "HIFROMPGI" b = "HIFROMPGI"
c = b(2:7) c = b(2:7)
!ERROR: Substrings are not allowed on OpenMP directives or clauses !ERROR: Substrings are not allowed on OpenMP directives or clauses
!$omp parallel private(c(1:3)) !$omp parallel private(c(1:3))
a = c(1:1) a = c(1:1)
!$omp end parallel !$omp end parallel
end end

flang/test/Semantics/omp-resolve02.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! Test the effect to name resolution from illegal clause ! Test the effect to name resolution from illegal clause
!a = 1.0 !a = 1.0
b = 2 b = 2
!$omp parallel private(a) shared(b) !$omp parallel private(a) shared(b)
a = 3. a = 3.
b = 4 b = 4
Show All 9 Lines

flang/test/Semantics/omp-resolve03.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! 2.15.3 Although variables in common blocks can be accessed by use association ! 2.15.3 Although variables in common blocks can be accessed by use association
! or host association, common block names cannot. As a result, a common block ! or host association, common block names cannot. As a result, a common block
! name specified in a data-sharing attribute clause must be declared to be a ! name specified in a data-sharing attribute clause must be declared to be a
! common block in the same scoping unit in which the data-sharing attribute ! common block in the same scoping unit in which the data-sharing attribute
! clause appears. ! clause appears.
common /c/ a, b common /c/ a, b
Show All 13 Lines

flang/test/Semantics/omp-resolve04.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! 2.15.3 Data-Sharing Attribute Clauses ! 2.15.3 Data-Sharing Attribute Clauses
! A list item that specifies a given variable may not appear in more than ! A list item that specifies a given variable may not appear in more than
! one clause on the same directive, except that a variable may be specified ! one clause on the same directive, except that a variable may be specified
! in both firstprivate and lastprivate clauses. ! in both firstprivate and lastprivate clauses.
common /c/ a, b common /c/ a, b
integer a(3), b integer a(3), b
Show All 10 Lines

flang/test/Semantics/omp-resolve05.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! 2.15.3 Data-Sharing Attribute Clauses ! 2.15.3 Data-Sharing Attribute Clauses
! 2.15.3.1 default Clause ! 2.15.3.1 default Clause
subroutine default_none() subroutine default_none()
integer a(3) integer a(3)
A = 1 A = 1
Show All 14 Lines

flang/test/Semantics/omp-resolve06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
use omp_lib use omp_lib
!2.11.4 Allocate Clause !2.11.4 Allocate Clause
!For any list item that is specified in the allocate !For any list item that is specified in the allocate
!clause on a directive, a data-sharing attribute clause !clause on a directive, a data-sharing attribute clause
!that may create a private copy of that list item must be !that may create a private copy of that list item must be
!specified on the same directive. !specified on the same directive.
integer :: N = 2 integer :: N = 2
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/omp-sections01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.2 sections Construct ! 2.7.2 sections Construct
! Only a single nowait clause can appear on a sections directive. ! Only a single nowait clause can appear on a sections directive.
program omp_sections program omp_sections
!$omp sections !$omp sections
!$omp section !$omp section
print *, "omp section" print *, "omp section"
!ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive !ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive
!$omp end sections nowait nowait !$omp end sections nowait nowait
end program omp_sections end program omp_sections

flang/test/Semantics/omp-simd-aligned.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.8.1 simd Construct ! 2.8.1 simd Construct
! Semantic error for correct test case ! Semantic error for correct test case
program omp_simd program omp_simd
integer i, j, k integer i, j, k
integer, allocatable :: a(:), b(:) integer, allocatable :: a(:), b(:)
▲ Show 20 Lines • Show All 45 Lines • Show Last 20 Lines

flang/test/Semantics/omp-simd02.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.8.1 simd Construct ! 2.8.1 simd Construct
! Semantic error for correct test case ! Semantic error for correct test case
program omp_simd program omp_simd
integer i, j, k integer i, j, k
integer, allocatable :: a(:) integer, allocatable :: a(:)
Show All 12 Lines

flang/test/Semantics/omp-single01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.3 single Construct ! 2.7.3 single Construct
! Symbol present on multiple clauses ! Symbol present on multiple clauses
program omp_single program omp_single
integer i integer i
i = 10 i = 10
!$omp single private(i) !$omp single private(i)
print *, "omp single", i print *, "omp single", i
!ERROR: COPYPRIVATE variable 'i' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct !ERROR: COPYPRIVATE variable 'i' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct
!$omp end single copyprivate(i) !$omp end single copyprivate(i)
end program omp_single end program omp_single

flang/test/Semantics/omp-single02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang_fc1 -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.3 single Construct ! 2.7.3 single Construct
! Copyprivate variable is not thread private or private in outer context ! Copyprivate variable is not thread private or private in outer context
program omp_single program omp_single
integer i integer i
i = 10 i = 10
!$omp parallel !$omp parallel
!$omp single !$omp single
print *, "omp single", i print *, "omp single", i
!ERROR: COPYPRIVATE variable 'i' is not PRIVATE or THREADPRIVATE in outer context !ERROR: COPYPRIVATE variable 'i' is not PRIVATE or THREADPRIVATE in outer context
!$omp end single copyprivate(i) !$omp end single copyprivate(i)
!$omp end parallel !$omp end parallel
end program omp_single end program omp_single

flang/test/Semantics/omp-taskgroup01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
use omp_lib use omp_lib
implicit none implicit none
integer :: xyz, abc integer :: xyz, abc
real :: reduction_var real :: reduction_var
!$omp parallel num_threads(4) !$omp parallel num_threads(4)
!$omp single !$omp single
print *, "The" print *, "The"
Show All 31 Lines !$omp task
print *, "The " print *, "The "
!$omp taskgroup task_reduction(.or. : reduction_var) task_reduction(.and. : reduction_var) !$omp taskgroup task_reduction(.or. : reduction_var) task_reduction(.and. : reduction_var)
print *, "almighty sun" print *, "almighty sun"
!$omp end taskgroup !$omp end taskgroup
!$omp end taskgroup !$omp end taskgroup
!$omp end task !$omp end task
!$omp end parallel !$omp end parallel
end program end program
No newline at end of file No newline at end of file

flang/test/Semantics/omp-taskloop-simd01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 5.0 ! OpenMP Version 5.0
! 2.10.3 taskloop simd Construct ! 2.10.3 taskloop simd Construct
program omp_taskloop_simd program omp_taskloop_simd
integer i , j , k integer i , j , k
!$omp taskloop simd reduction(+:k) !$omp taskloop simd reduction(+:k)
do i=1,10000 do i=1,10000
do j=1,i do j=1,i
k = k + 1 k = k + 1
end do end do
end do end do
!$omp end taskloop simd !$omp end taskloop simd
end program omp_taskloop_simd end program omp_taskloop_simd

flang/test/Semantics/omp-taskloop01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.9.2 taskloop Construct ! 2.9.2 taskloop Construct
subroutine parallel_work subroutine parallel_work
integer i integer i
integer j integer j
!$omp taskgroup !$omp taskgroup
Show All 14 Lines

flang/test/Semantics/omp-workshare01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! Invalid do construct inside !$omp workshare ! Invalid do construct inside !$omp workshare
subroutine workshare(aa, bb, cc, dd, ee, ff, n) subroutine workshare(aa, bb, cc, dd, ee, ff, n)
integer n, i integer n, i
real aa(n,n), bb(n,n), cc(n,n), dd(n,n), ee(n,n), ff(n,n) real aa(n,n), bb(n,n), cc(n,n), dd(n,n), ee(n,n), ff(n,n)
Show All 24 Lines

flang/test/Semantics/omp-workshare02.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! The !omp workshare construct must not contain any user defined ! The !omp workshare construct must not contain any user defined
! function calls unless the function is ELEMENTAL. ! function calls unless the function is ELEMENTAL.
module my_mod module my_mod
contains contains
integer function my_func() integer function my_func()
▲ Show 20 Lines • Show All 56 Lines • Show Last 20 Lines

flang/test/Semantics/omp-workshare03.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! All array assignments, scalar assignments, and masked array assignments ! All array assignments, scalar assignments, and masked array assignments
! must be intrinsic assignments. ! must be intrinsic assignments.
module defined_assign module defined_assign
interface assignment(=) interface assignment(=)
module procedure work_assign module procedure work_assign
Show All 23 Lines

flang/test/Semantics/omp-workshare04.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! Checks for OpenMP Workshare construct ! Checks for OpenMP Workshare construct
subroutine omp_workshare(aa, bb, cc, dd, ee, ff, n) subroutine omp_workshare(aa, bb, cc, dd, ee, ff, n)
integer i, j, n, a(10), b(10) integer i, j, n, a(10), b(10)
integer, pointer :: p integer, pointer :: p
integer, target :: t integer, target :: t
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

flang/test/Semantics/omp-workshare05.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp ! RUN: %python %S/test_errors.py %s %t %flang -fopenmp
! REQUIRES: shell
! OpenMP Version 4.5 ! OpenMP Version 4.5
! 2.7.4 workshare Construct ! 2.7.4 workshare Construct
! Checks for OpenMP Parallel constructs enclosed in Workshare constructs ! Checks for OpenMP Parallel constructs enclosed in Workshare constructs
module workshare_mod module workshare_mod
interface assignment(=) interface assignment(=)
module procedure work_assign module procedure work_assign
end interface end interface
▲ Show 20 Lines • Show All 52 Lines • Show Last 20 Lines

flang/test/Semantics/random-seed.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! NULL() intrinsic function error tests ! NULL() intrinsic function error tests
program test_random_seed program test_random_seed
integer :: size_arg integer :: size_arg
integer, parameter :: size_arg_const = 343 integer, parameter :: size_arg_const = 343
integer, dimension(3), parameter :: put_arg = [9,8,7] integer, dimension(3), parameter :: put_arg = [9,8,7]
integer :: get_arg_scalar integer :: get_arg_scalar
integer, dimension(3) :: get_arg integer, dimension(3) :: get_arg
integer, dimension(3),parameter :: get_arg_const = [8,7,6] integer, dimension(3),parameter :: get_arg_const = [8,7,6]
Show All 19 Lines

flang/test/Semantics/reshape.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!Tests for RESHAPE !Tests for RESHAPE
program reshaper program reshaper
! RESHAPE with arguments SOURCE and SHAPE ! RESHAPE with arguments SOURCE and SHAPE
integer, parameter :: array1(2,3) = RESHAPE([(n, n=1,6)], [2,3]) integer, parameter :: array1(2,3) = RESHAPE([(n, n=1,6)], [2,3])
! RESHAPE with arguments SOURCE, SHAPE, and PAD ! RESHAPE with arguments SOURCE, SHAPE, and PAD
integer :: array2(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99]) integer :: array2(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99])
! RESHAPE with arguments SOURCE, SHAPE, PAD, and ORDER ! RESHAPE with arguments SOURCE, SHAPE, PAD, and ORDER
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

flang/test/Semantics/resolve01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
integer :: x integer :: x
!ERROR: The type of 'x' has already been declared !ERROR: The type of 'x' has already been declared
real :: x real :: x
integer(8) :: i integer(8) :: i
parameter(i=1,j=2,k=3) parameter(i=1,j=2,k=3)
integer :: j integer :: j
!ERROR: The type of 'k' has already been implicitly declared !ERROR: The type of 'k' has already been implicitly declared
real :: k real :: k
end end

flang/test/Semantics/resolve02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s subroutine s
!ERROR: Declaration of 'x' conflicts with its use as internal procedure !ERROR: Declaration of 'x' conflicts with its use as internal procedure
real :: x real :: x
contains contains
subroutine x subroutine x
end end
end end
module m module m
!ERROR: Declaration of 'x' conflicts with its use as module procedure !ERROR: Declaration of 'x' conflicts with its use as module procedure
real :: x real :: x
contains contains
subroutine x subroutine x
end end
end end

flang/test/Semantics/resolve03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
implicit none implicit none
integer :: x integer :: x
!ERROR: No explicit type declared for 'y' !ERROR: No explicit type declared for 'y'
y = x y = x
end end

flang/test/Semantics/resolve04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!ERROR: No explicit type declared for 'f' !ERROR: No explicit type declared for 'f'
function f() function f()
implicit none implicit none
end end
!ERROR: No explicit type declared for 'y' !ERROR: No explicit type declared for 'y'
subroutine s(x, y) subroutine s(x, y)
implicit none implicit none
▲ Show 20 Lines • Show All 49 Lines • Show Last 20 Lines

flang/test/Semantics/resolve05.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
program p program p
integer :: p ! this is ok integer :: p ! this is ok
end end
module m module m
integer :: m ! this is ok integer :: m ! this is ok
end end
submodule(m) sm submodule(m) sm
integer :: sm ! this is ok integer :: sm ! this is ok
Show All 22 Lines

flang/test/Semantics/resolve06.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
implicit none implicit none
allocatable :: x allocatable :: x
integer :: x integer :: x
!ERROR: No explicit type declared for 'y' !ERROR: No explicit type declared for 'y'
allocatable :: y allocatable :: y
end end

flang/test/Semantics/resolve07.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
integer :: x(2) integer :: x(2)
!ERROR: The dimensions of 'x' have already been declared !ERROR: The dimensions of 'x' have already been declared
allocatable :: x(:) allocatable :: x(:)
real :: y[1:*] real :: y[1:*]
!ERROR: The codimensions of 'y' have already been declared !ERROR: The codimensions of 'y' have already been declared
allocatable :: y[:] allocatable :: y[:]
end end
Show All 22 Lines

flang/test/Semantics/resolve08.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
integer :: g(10) integer :: g(10)
f(i) = i + 1 ! statement function f(i) = i + 1 ! statement function
g(i) = i + 2 ! mis-parsed array assignment g(i) = i + 2 ! mis-parsed array assignment
!ERROR: 'h' has not been declared as an array !ERROR: 'h' has not been declared as an array
h(i) = i + 3 h(i) = i + 3
end end

flang/test/Semantics/resolve09.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
integer :: y integer :: y
procedure() :: a procedure() :: a
procedure(real) :: b procedure(real) :: b
call a ! OK - can be function or subroutine call a ! OK - can be function or subroutine
!ERROR: Cannot call subroutine 'a' like a function !ERROR: Cannot call subroutine 'a' like a function
c = a() c = a()
!ERROR: Cannot call function 'b' like a subroutine !ERROR: Cannot call function 'b' like a subroutine
call b call b
▲ Show 20 Lines • Show All 106 Lines • Show Last 20 Lines

flang/test/Semantics/resolve10.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
public public
type t type t
integer, private :: i integer, private :: i
end type end type
!ERROR: The default accessibility of this module has already been declared !ERROR: The default accessibility of this module has already been declared
private !C869 private !C869
end end
Show All 34 Lines

flang/test/Semantics/resolve101.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Ensure that spurious errors do not arise from FinishSpecificationPart ! Ensure that spurious errors do not arise from FinishSpecificationPart
! checking on a nested specification part. ! checking on a nested specification part.
real, save :: x real, save :: x
interface interface
subroutine subr(x) subroutine subr(x)
real, intent(in) :: x real, intent(in) :: x
! SAVE attribute checking should not complain at the ! SAVE attribute checking should not complain at the
! end of this specification part about a dummy argument ! end of this specification part about a dummy argument
! having the SAVE attribute. ! having the SAVE attribute.
end subroutine end subroutine
end interface end interface
end end

flang/test/Semantics/resolve102.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for circularly defined procedures ! Tests for circularly defined procedures
!ERROR: Procedure 'sub' is recursively defined. Procedures in the cycle: 'sub', 'p2' !ERROR: Procedure 'sub' is recursively defined. Procedures in the cycle: 'sub', 'p2'
subroutine sub(p2) subroutine sub(p2)
PROCEDURE(sub) :: p2 PROCEDURE(sub) :: p2
call sub() call sub()
end subroutine end subroutine
▲ Show 20 Lines • Show All 92 Lines • Show Last 20 Lines

flang/test/Semantics/resolve104.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test constant folding of type parameter values both a base value and a ! Test constant folding of type parameter values both a base value and a
! parameter name are supplied. ! parameter name are supplied.
! !
! Type parameters are described in 7.5.3 and constant expressions are described ! Type parameters are described in 7.5.3 and constant expressions are described
! in 10.1.12. 10.1.12, paragraph 4 defines whether a specification inquiry is ! in 10.1.12. 10.1.12, paragraph 4 defines whether a specification inquiry is
! a constant expression. Section 10.1.11, paragraph 3, item (2) states that a ! a constant expression. Section 10.1.11, paragraph 3, item (2) states that a
! type parameter inquiry is a specification inquiry. ! type parameter inquiry is a specification inquiry.
▲ Show 20 Lines • Show All 55 Lines • Show Last 20 Lines

flang/test/Semantics/resolve105.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test instantiation of components that are procedure pointers. ! Test instantiation of components that are procedure pointers.
! !
program test program test
type dtype(kindParam) type dtype(kindParam)
integer, kind :: kindParam = 4 integer, kind :: kindParam = 4
!ERROR: KIND parameter value (66) of intrinsic type REAL did not resolve to a supported value !ERROR: KIND parameter value (66) of intrinsic type REAL did not resolve to a supported value
!ERROR: KIND parameter value (55) of intrinsic type REAL did not resolve to a supported value !ERROR: KIND parameter value (55) of intrinsic type REAL did not resolve to a supported value
procedure (real(kindParam)), pointer, nopass :: field => null() procedure (real(kindParam)), pointer, nopass :: field => null()
▲ Show 20 Lines • Show All 73 Lines • Show Last 20 Lines

flang/test/Semantics/resolve11.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
public i public i
integer, private :: j integer, private :: j
!ERROR: The accessibility of 'i' has already been specified as PUBLIC !ERROR: The accessibility of 'i' has already been specified as PUBLIC
private i private i
!The accessibility of 'j' has already been specified as PRIVATE !The accessibility of 'j' has already been specified as PRIVATE
private j private j
end end
▲ Show 20 Lines • Show All 42 Lines • Show Last 20 Lines

flang/test/Semantics/resolve12.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
end end
subroutine sub subroutine sub
end end
use m1 use m1
!ERROR: Cannot read module file for module 'm2': Source file 'm2.mod' was not found !ERROR: Cannot read module file for module 'm2': Source file 'm2.mod' was not found
use m2 use m2
!ERROR: 'sub' is not a module !ERROR: 'sub' is not a module
use sub use sub
end end

flang/test/Semantics/resolve13.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
integer :: x integer :: x
integer, private :: y integer, private :: y
interface operator(.foo.) interface operator(.foo.)
module procedure ifoo module procedure ifoo
end interface end interface
interface operator(-) interface operator(-)
module procedure ifoo module procedure ifoo
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

flang/test/Semantics/resolve14.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
integer :: x integer :: x
integer :: y integer :: y
integer :: z integer :: z
integer, parameter :: k1 = selected_int_kind(9) integer, parameter :: k1 = selected_int_kind(9)
end end
module m2 module m2
real :: y real :: y
Show All 23 Lines

flang/test/Semantics/resolve15.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
real :: var real :: var
interface i interface i
!ERROR: 'var' is not a subprogram !ERROR: 'var' is not a subprogram
procedure :: sub, var procedure :: sub, var
!ERROR: Procedure 'bad' not found !ERROR: Procedure 'bad' not found
procedure :: bad procedure :: bad
end interface end interface
Show All 28 Lines

flang/test/Semantics/resolve16.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
interface interface
subroutine sub0 subroutine sub0
end end
!ERROR: A PROCEDURE statement is only allowed in a generic interface block !ERROR: A PROCEDURE statement is only allowed in a generic interface block
procedure :: sub1, sub2 procedure :: sub1, sub2
end interface end interface
contains contains
subroutine sub1 subroutine sub1
end end
subroutine sub2 subroutine sub2
end end
end end

flang/test/Semantics/resolve17.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
integer :: foo integer :: foo
!Note: PGI, Intel, and GNU allow this; NAG and Sun do not !Note: PGI, Intel, and GNU allow this; NAG and Sun do not
!ERROR: 'foo' is already declared in this scoping unit !ERROR: 'foo' is already declared in this scoping unit
interface foo interface foo
end interface end interface
end module end module
▲ Show 20 Lines • Show All 258 Lines • Show Last 20 Lines

flang/test/Semantics/resolve18.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
implicit none implicit none
contains contains
subroutine foo(x) subroutine foo(x)
real :: x real :: x
end subroutine end subroutine
end module end module
▲ Show 20 Lines • Show All 175 Lines • Show Last 20 Lines

flang/test/Semantics/resolve19.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
interface a interface a
subroutine s(x) subroutine s(x)
real :: x real :: x
end subroutine end subroutine
!ERROR: 's' is already declared in this scoping unit !ERROR: 's' is already declared in this scoping unit
subroutine s(x) subroutine s(x)
integer :: x integer :: x
Show All 26 Lines

flang/test/Semantics/resolve20.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
abstract interface abstract interface
subroutine foo subroutine foo
end subroutine end subroutine
end interface end interface
procedure() :: a procedure() :: a
procedure(integer) :: b procedure(integer) :: b
▲ Show 20 Lines • Show All 69 Lines • Show Last 20 Lines

flang/test/Semantics/resolve21.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
type :: t type :: t
integer :: i integer :: i
integer :: s1 integer :: s1
integer :: t integer :: t
end type end type
!ERROR: 't' is already declared in this scoping unit !ERROR: 't' is already declared in this scoping unit
integer :: t integer :: t
Show All 35 Lines

flang/test/Semantics/resolve22.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
!OK: interface followed by type with same name !OK: interface followed by type with same name
interface t interface t
end interface end interface
type t type t
end type end type
type(t) :: x type(t) :: x
x = t() x = t()
Show All 23 Lines

flang/test/Semantics/resolve23.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
type :: t type :: t
real :: y real :: y
end type end type
end module end module
use m use m
implicit type(t)(x) implicit type(t)(x)
z = x%y !OK: x is type(t) z = x%y !OK: x is type(t)
!ERROR: 'w' is not an object of derived type; it is implicitly typed !ERROR: 'w' is not an object of derived type; it is implicitly typed
z = w%y z = w%y
end end

flang/test/Semantics/resolve24.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine test1 subroutine test1
!ERROR: Generic interface 'foo' has both a function and a subroutine !ERROR: Generic interface 'foo' has both a function and a subroutine
interface foo interface foo
subroutine s1(x) subroutine s1(x)
end subroutine end subroutine
subroutine s2(x, y) subroutine s2(x, y)
end subroutine end subroutine
function f() function f()
▲ Show 20 Lines • Show All 55 Lines • Show Last 20 Lines

flang/test/Semantics/resolve25.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
interface foo interface foo
real function s1(x) real function s1(x)
real x real x
end end
!ERROR: 's2' is not a module procedure !ERROR: 's2' is not a module procedure
module procedure s2 module procedure s2
!ERROR: Procedure 's3' not found !ERROR: Procedure 's3' not found
▲ Show 20 Lines • Show All 51 Lines • Show Last 20 Lines

flang/test/Semantics/resolve26.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
interface interface
module subroutine s() module subroutine s()
end subroutine end subroutine
end interface end interface
end end
module m2 module m2
Show All 16 Lines

flang/test/Semantics/resolve27.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
interface interface
module subroutine s() module subroutine s()
end subroutine end subroutine
end interface end interface
end end
submodule(m) s1 submodule(m) s1
Show All 13 Lines

flang/test/Semantics/resolve28.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s subroutine s
type t type t
end type end type
interface interface
subroutine s1 subroutine s1
import, none import, none
!ERROR: IMPORT,NONE must be the only IMPORT statement in a scope !ERROR: IMPORT,NONE must be the only IMPORT statement in a scope
import, all import, all
▲ Show 20 Lines • Show All 47 Lines • Show Last 20 Lines

flang/test/Semantics/resolve29.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
type t1 type t1
end type end type
type t3 type t3
end type end type
interface interface
subroutine s1(x) subroutine s1(x)
!ERROR: 't1' from host is not accessible !ERROR: 't1' from host is not accessible
Show All 35 Lines

flang/test/Semantics/resolve30.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
integer x integer x
block block
import, none import, none
!ERROR: 'x' from host scoping unit is not accessible due to IMPORT !ERROR: 'x' from host scoping unit is not accessible due to IMPORT
x = 1 x = 1
end block end block
end end
Show All 30 Lines

flang/test/Semantics/resolve31.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C735 If EXTENDS appears, SEQUENCE shall not appear. ! C735 If EXTENDS appears, SEQUENCE shall not appear.
! C738 The same private-or-sequence shall not appear more than once in a ! C738 The same private-or-sequence shall not appear more than once in a
! given derived-type-def . ! given derived-type-def .
! !
! C740 If SEQUENCE appears, ! C740 If SEQUENCE appears,
! the type shall have at least one component, ! the type shall have at least one component,
! each data component shall be declared to be of an intrinsic type or of a sequence type, ! each data component shall be declared to be of an intrinsic type or of a sequence type,
! the derived type shall not have any type parameter, ! the derived type shall not have any type parameter,
▲ Show 20 Lines • Show All 96 Lines • Show Last 20 Lines

flang/test/Semantics/resolve32.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m2 module m2
public s2, s4 public s2, s4
private s3 private s3
contains contains
subroutine s2 subroutine s2
end end
subroutine s3 subroutine s3
end end
▲ Show 20 Lines • Show All 66 Lines • Show Last 20 Lines

flang/test/Semantics/resolve33.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Derived type parameters ! Derived type parameters
! C731 The same type-param-name shall not appear more than once in a given ! C731 The same type-param-name shall not appear more than once in a given
! derived-type-stmt. ! derived-type-stmt.
! C741 A type-param-name in a type-param-def-stmt in a derived-type-def shall ! C741 A type-param-name in a type-param-def-stmt in a derived-type-def shall
! be one of the type-paramnames in the derived-type-stmt of that ! be one of the type-paramnames in the derived-type-stmt of that
! derived-type-def. ! derived-type-def.
! C742 Each type-param-name in the derived-type-stmt in a derived-type-def ! C742 Each type-param-name in the derived-type-stmt in a derived-type-def
! shall appear exactly once as a type-param-name in a type-param-def-stmt ! shall appear exactly once as a type-param-name in a type-param-def-stmt
Show All 36 Lines

flang/test/Semantics/resolve34.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Extended derived types ! Extended derived types
module m1 module m1
type :: t1 type :: t1
integer :: x integer :: x
!ERROR: Component 'x' is already declared in this derived type !ERROR: Component 'x' is already declared in this derived type
real :: x real :: x
end type end type
▲ Show 20 Lines • Show All 136 Lines • Show Last 20 Lines

flang/test/Semantics/resolve35.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Construct names ! Construct names
subroutine s1 subroutine s1
real :: foo real :: foo
!ERROR: 'foo' is already declared in this scoping unit !ERROR: 'foo' is already declared in this scoping unit
foo: block foo: block
end block foo end block foo
end end
▲ Show 20 Lines • Show All 125 Lines • Show Last 20 Lines

flang/test/Semantics/resolve36.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1568 The procedure-name shall have been declared to be a separate module ! C1568 The procedure-name shall have been declared to be a separate module
! procedure in the containing program unit or an ancestor of that program unit. ! procedure in the containing program unit or an ancestor of that program unit.
! C1547 MODULE shall appear only in the function-stmt or subroutine-stmt of a ! C1547 MODULE shall appear only in the function-stmt or subroutine-stmt of a
! module subprogram or of a nonabstract interface body that is declared in the ! module subprogram or of a nonabstract interface body that is declared in the
! scoping unit of a module or submodule. ! scoping unit of a module or submodule.
module m1 module m1
interface interface
▲ Show 20 Lines • Show All 90 Lines • Show Last 20 Lines

flang/test/Semantics/resolve37.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C701 The type-param-value for a kind type parameter shall be a constant ! C701 The type-param-value for a kind type parameter shall be a constant
! expression. This constraint looks like a mistake in the standard. ! expression. This constraint looks like a mistake in the standard.
integer, parameter :: k = 8 integer, parameter :: k = 8
real, parameter :: l = 8.0 real, parameter :: l = 8.0
integer :: n = 2 integer :: n = 2
!ERROR: Must be a constant value !ERROR: Must be a constant value
parameter(m=n) parameter(m=n)
integer(k) :: x integer(k) :: x
Show All 33 Lines

flang/test/Semantics/resolve38.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C772 ! C772
module m1 module m1
type t1 type t1
contains contains
procedure, nopass :: s1 procedure, nopass :: s1
!ERROR: Binding name 's2' not found in this derived type !ERROR: Binding name 's2' not found in this derived type
generic :: g1 => s2 generic :: g1 => s2
end type end type
▲ Show 20 Lines • Show All 119 Lines • Show Last 20 Lines

flang/test/Semantics/resolve39.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
implicit none implicit none
real(8) :: x = 2.0 real(8) :: x = 2.0
!ERROR: The associate name 'a' is already used in this associate statement !ERROR: The associate name 'a' is already used in this associate statement
associate(a => x, b => x+1, a => x+2) associate(a => x, b => x+1, a => x+2)
x = b x = b
end associate end associate
!ERROR: No explicit type declared for 'b' !ERROR: No explicit type declared for 'b'
Show All 23 Lines

flang/test/Semantics/resolve40.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
namelist /nl/x namelist /nl/x
block block
!ERROR: NAMELIST statement is not allowed in a BLOCK construct !ERROR: NAMELIST statement is not allowed in a BLOCK construct
namelist /nl/y namelist /nl/y
end block end block
end end
▲ Show 20 Lines • Show All 82 Lines • Show Last 20 Lines

flang/test/Semantics/resolve41.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
implicit none implicit none
real, parameter :: a = 8.0 real, parameter :: a = 8.0
!ERROR: Must have INTEGER type, but is REAL(4) !ERROR: Must have INTEGER type, but is REAL(4)
integer :: aa = 2_a integer :: aa = 2_a
integer :: b = 8 integer :: b = 8
! C713 A scalar-int-constant-name shall be a named constant of type integer. ! C713 A scalar-int-constant-name shall be a named constant of type integer.
!ERROR: Must be a constant value !ERROR: Must be a constant value
Show All 19 Lines

flang/test/Semantics/resolve42.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1 subroutine s1
!ERROR: Array 'z' without ALLOCATABLE or POINTER attribute must have explicit shape !ERROR: Array 'z' without ALLOCATABLE or POINTER attribute must have explicit shape
common x, y(4), z(:) common x, y(4), z(:)
end end
subroutine s2 subroutine s2
common /c1/ x, y, z common /c1/ x, y, z
!ERROR: 'y' is already in a COMMON block !ERROR: 'y' is already in a COMMON block
▲ Show 20 Lines • Show All 105 Lines • Show Last 20 Lines

flang/test/Semantics/resolve43.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Error tests for structure constructors. ! Error tests for structure constructors.
! Errors caught by expression resolution are tested elsewhere; these are the ! Errors caught by expression resolution are tested elsewhere; these are the
! errors meant to be caught by name resolution, as well as acceptable use ! errors meant to be caught by name resolution, as well as acceptable use
! cases. ! cases.
! Type parameters are used to make the parses unambiguous. ! Type parameters are used to make the parses unambiguous.
module module1 module module1
type :: type1(j) type :: type1(j)
Show All 37 Lines

flang/test/Semantics/resolve44.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Error tests for recursive use of derived types. ! Error tests for recursive use of derived types.
! C744 If neither the POINTER nor the ALLOCATABLE attribute is specified, the ! C744 If neither the POINTER nor the ALLOCATABLE attribute is specified, the
! declaration-type-spec in the component-def-stmt shall specify an intrinsic ! declaration-type-spec in the component-def-stmt shall specify an intrinsic
! type or a previously defined derived type. ! type or a previously defined derived type.
program main program main
type :: recursive1 type :: recursive1
!ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE !ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE
Show All 39 Lines

flang/test/Semantics/resolve45.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
function f1(x, y) function f1(x, y)
integer x integer x
!ERROR: SAVE attribute may not be applied to dummy argument 'x' !ERROR: SAVE attribute may not be applied to dummy argument 'x'
!ERROR: SAVE attribute may not be applied to dummy argument 'y' !ERROR: SAVE attribute may not be applied to dummy argument 'y'
save x,y save x,y
integer y integer y
!ERROR: SAVE attribute may not be applied to function result 'f1' !ERROR: SAVE attribute may not be applied to function result 'f1'
save f1 save f1
▲ Show 20 Lines • Show All 72 Lines • Show Last 20 Lines

flang/test/Semantics/resolve46.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C1030 - pointers to intrinsic procedures ! C1030 - pointers to intrinsic procedures
program main program main
intrinsic :: cos ! a specific & generic intrinsic name intrinsic :: cos ! a specific & generic intrinsic name
intrinsic :: alog10 ! a specific intrinsic name, not generic intrinsic :: alog10 ! a specific intrinsic name, not generic
intrinsic :: null ! a weird special case intrinsic :: null ! a weird special case
intrinsic :: bessel_j0 ! generic intrinsic, not specific intrinsic :: bessel_j0 ! generic intrinsic, not specific
intrinsic :: amin0 intrinsic :: amin0
!ERROR: 'haltandcatchfire' is not a known intrinsic procedure !ERROR: 'haltandcatchfire' is not a known intrinsic procedure
Show All 13 Lines

flang/test/Semantics/resolve47.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
!ERROR: Logical constant '.true.' may not be used as a defined operator !ERROR: Logical constant '.true.' may not be used as a defined operator
interface operator(.TRUE.) interface operator(.TRUE.)
end interface end interface
!ERROR: Logical constant '.false.' may not be used as a defined operator !ERROR: Logical constant '.false.' may not be used as a defined operator
generic :: operator(.false.) => bar generic :: operator(.false.) => bar
end end
Show All 28 Lines

flang/test/Semantics/resolve48.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test correct use-association of a derived type. ! Test correct use-association of a derived type.
module m1 module m1
implicit none implicit none
type :: t type :: t
end type end type
end module end module
module m2 module m2
use m1, only: t use m1, only: t
Show All 26 Lines

flang/test/Semantics/resolve49.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test section subscript ! Test section subscript
program p1 program p1
real :: a(10,10) real :: a(10,10)
real :: b(5,5) real :: b(5,5)
real :: c real :: c
integer :: n integer :: n
n = 2 n = 2
b = a(1:10:n,1:n+3) b = a(1:10:n,1:n+3)
▲ Show 20 Lines • Show All 43 Lines • Show Last 20 Lines

flang/test/Semantics/resolve50.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test coarray association in CHANGE TEAM statement ! Test coarray association in CHANGE TEAM statement
subroutine s1 subroutine s1
use iso_fortran_env use iso_fortran_env
type(team_type) :: t type(team_type) :: t
complex :: x[*] complex :: x[*]
real :: y[*] real :: y[*]
real :: z real :: z
Show All 21 Lines

flang/test/Semantics/resolve51.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test SELECT TYPE errors: C1157 ! Test SELECT TYPE errors: C1157
subroutine s1() subroutine s1()
type :: t type :: t
end type end type
procedure(f) :: ff procedure(f) :: ff
!ERROR: Selector is not a named variable: 'associate-name =>' is required !ERROR: Selector is not a named variable: 'associate-name =>' is required
select type(ff()) select type(ff())
Show All 9 Lines

flang/test/Semantics/resolve52.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for C760: ! Tests for C760:
! The passed-object dummy argument shall be a scalar, nonpointer, nonallocatable ! The passed-object dummy argument shall be a scalar, nonpointer, nonallocatable
! dummy data object with the same declared type as the type being defined; ! dummy data object with the same declared type as the type being defined;
! all of its length type parameters shall be assumed; it shall be polymorphic ! all of its length type parameters shall be assumed; it shall be polymorphic
! (7.3.2.3) if and only if the type being defined is extensible (7.5.7). ! (7.3.2.3) if and only if the type being defined is extensible (7.5.7).
! It shall not have the VALUE attribute. ! It shall not have the VALUE attribute.
! !
! C757 If the procedure pointer component has an implicit interface or has no ! C757 If the procedure pointer component has an implicit interface or has no
▲ Show 20 Lines • Show All 131 Lines • Show Last 20 Lines

flang/test/Semantics/resolve53.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! 15.4.3.4.5 Restrictions on generic declarations ! 15.4.3.4.5 Restrictions on generic declarations
! Specific procedures of generic interfaces must be distinguishable. ! Specific procedures of generic interfaces must be distinguishable.
module m1 module m1
!ERROR: Generic 'g' may not have specific procedures 's2' and 's4' as their interfaces are not distinguishable !ERROR: Generic 'g' may not have specific procedures 's2' and 's4' as their interfaces are not distinguishable
interface g interface g
procedure s1 procedure s1
procedure s2 procedure s2
▲ Show 20 Lines • Show All 472 Lines • Show Last 20 Lines

flang/test/Semantics/resolve54.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests based on examples in C.10.6 ! Tests based on examples in C.10.6
! C.10.6(10) ! C.10.6(10)
module m1 module m1
interface GOOD1 interface GOOD1
function F1A(X) function F1A(X)
real :: F1A, X real :: F1A, X
end function end function
▲ Show 20 Lines • Show All 177 Lines • Show Last 20 Lines

flang/test/Semantics/resolve55.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for C1128: ! Tests for C1128:
! A variable-name that appears in a LOCAL or LOCAL_INIT locality-spec shall not ! A variable-name that appears in a LOCAL or LOCAL_INIT locality-spec shall not
! have the ALLOCATABLE; INTENT (IN); or OPTIONAL attribute; shall not be of ! have the ALLOCATABLE; INTENT (IN); or OPTIONAL attribute; shall not be of
! finalizable type; shall not be a nonpointer polymorphic dummy argument; and ! finalizable type; shall not be a nonpointer polymorphic dummy argument; and
! shall not be a coarray or an assumed-size array. ! shall not be a coarray or an assumed-size array.
subroutine s1() subroutine s1()
! Cannot have ALLOCATABLE variable in a locality spec ! Cannot have ALLOCATABLE variable in a locality spec
▲ Show 20 Lines • Show All 84 Lines • Show Last 20 Lines

flang/test/Semantics/resolve56.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test that associations constructs can be correctly combined. The intrinsic ! Test that associations constructs can be correctly combined. The intrinsic
! functions are not what is tested here, they are only use to reveal the types ! functions are not what is tested here, they are only use to reveal the types
! of local variables. ! of local variables.
implicit none implicit none
real res real res
complex zres complex zres
integer ires integer ires
▲ Show 20 Lines • Show All 58 Lines • Show Last 20 Lines

flang/test/Semantics/resolve57.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for the last sentence of C1128: ! Tests for the last sentence of C1128:
!A variable-name that is not permitted to appear in a variable definition !A variable-name that is not permitted to appear in a variable definition
!context shall not appear in a LOCAL or LOCAL_INIT locality-spec. !context shall not appear in a LOCAL or LOCAL_INIT locality-spec.
subroutine s1(arg) subroutine s1(arg)
real, intent(in) :: arg real, intent(in) :: arg
! This is not OK because "arg" is "intent(in)" ! This is not OK because "arg" is "intent(in)"
▲ Show 20 Lines • Show All 113 Lines • Show Last 20 Lines

flang/test/Semantics/resolve58.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1(x, y) subroutine s1(x, y)
!ERROR: Array pointer 'x' must have deferred shape or assumed rank !ERROR: Array pointer 'x' must have deferred shape or assumed rank
real, pointer :: x(1:) ! C832 real, pointer :: x(1:) ! C832
!ERROR: Allocatable array 'y' must have deferred shape or assumed rank !ERROR: Allocatable array 'y' must have deferred shape or assumed rank
real, dimension(1:,1:), allocatable :: y ! C832 real, dimension(1:,1:), allocatable :: y ! C832
end end
subroutine s2(a, b, c) subroutine s2(a, b, c)
▲ Show 20 Lines • Show All 71 Lines • Show Last 20 Lines

flang/test/Semantics/resolve59.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Testing 15.6.2.2 point 4 (What function-name refers to depending on the ! Testing 15.6.2.2 point 4 (What function-name refers to depending on the
! presence of RESULT). ! presence of RESULT).
module m_no_result module m_no_result
! Without RESULT, it refers to the result object (no recursive ! Without RESULT, it refers to the result object (no recursive
! calls possible) ! calls possible)
contains contains
▲ Show 20 Lines • Show All 129 Lines • Show Last 20 Lines

flang/test/Semantics/resolve60.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Testing 7.6 enum ! Testing 7.6 enum
! OK ! OK
enum, bind(C) enum, bind(C)
enumerator :: red, green enumerator :: red, green
enumerator blue, pink enumerator blue, pink
enumerator yellow enumerator yellow
enumerator :: purple = 2 enumerator :: purple = 2
Show All 30 Lines

flang/test/Semantics/resolve61.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
program p1 program p1
integer(8) :: a, b, c, d integer(8) :: a, b, c, d
pointer(a, b) pointer(a, b)
!ERROR: 'b' cannot be a Cray pointer as it is already a Cray pointee !ERROR: 'b' cannot be a Cray pointer as it is already a Cray pointee
pointer(b, c) pointer(b, c)
!ERROR: 'a' cannot be a Cray pointee as it is already a Cray pointer !ERROR: 'a' cannot be a Cray pointee as it is already a Cray pointer
pointer(d, a) pointer(d, a)
end end
▲ Show 20 Lines • Show All 106 Lines • Show Last 20 Lines

flang/test/Semantics/resolve62.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Resolve generic based on number of arguments ! Resolve generic based on number of arguments
subroutine s1 subroutine s1
interface f interface f
real function f1(x) real function f1(x)
optional :: x optional :: x
end end
real function f2(x, y) real function f2(x, y)
end end
▲ Show 20 Lines • Show All 70 Lines • Show Last 20 Lines

flang/test/Semantics/resolve63.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Invalid operand types when user-defined operator is available ! Invalid operand types when user-defined operator is available
module m1 module m1
type :: t type :: t
end type end type
interface operator(==) interface operator(==)
logical function eq_tt(x, y) logical function eq_tt(x, y)
import :: t import :: t
type(t), intent(in) :: x, y type(t), intent(in) :: x, y
▲ Show 20 Lines • Show All 264 Lines • Show Last 20 Lines

flang/test/Semantics/resolve64.f90

! RUN: %S/test_errors.sh %s %t %flang -flogical-abbreviations -fxor-operator ! RUN: %python %S/test_errors.py %s %t %flang -flogical-abbreviations -fxor-operator
! REQUIRES: shell
! Like m4 in resolve63 but compiled with different options. ! Like m4 in resolve63 but compiled with different options.
! Alternate operators are enabled so treat these as intrinsic. ! Alternate operators are enabled so treat these as intrinsic.
module m4 module m4
contains contains
subroutine s1(x, y, z) subroutine s1(x, y, z)
logical :: x logical :: x
real :: y, z real :: y, z
Show All 36 Lines

flang/test/Semantics/resolve65.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test restrictions on what subprograms can be used for defined assignment. ! Test restrictions on what subprograms can be used for defined assignment.
module m1 module m1
implicit none implicit none
type :: t type :: t
contains contains
!ERROR: Defined assignment procedure 'binding' must be a subroutine !ERROR: Defined assignment procedure 'binding' must be a subroutine
generic :: assignment(=) => binding generic :: assignment(=) => binding
▲ Show 20 Lines • Show All 104 Lines • Show Last 20 Lines

flang/test/Semantics/resolve66.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test that user-defined assignment is used in the right places ! Test that user-defined assignment is used in the right places
module m1 module m1
type t1 type t1
end type end type
type t2 type t2
end type end type
interface assignment(=) interface assignment(=)
▲ Show 20 Lines • Show All 97 Lines • Show Last 20 Lines

flang/test/Semantics/resolve67.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test restrictions on what subprograms can be used for defined operators. ! Test restrictions on what subprograms can be used for defined operators.
! See: 15.4.3.4.2 ! See: 15.4.3.4.2
module m1 module m1
interface operator(+) interface operator(+)
!ERROR: OPERATOR(+) procedure 'add1' must be a function !ERROR: OPERATOR(+) procedure 'add1' must be a function
subroutine add1(x, y, z) subroutine add1(x, y, z)
real, intent(out) :: x real, intent(out) :: x
▲ Show 20 Lines • Show All 95 Lines • Show Last 20 Lines

flang/test/Semantics/resolve68.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test resolution of type-bound generics. ! Test resolution of type-bound generics.
module m1 module m1
type :: t type :: t
contains contains
procedure, pass(x) :: add1 => add procedure, pass(x) :: add1 => add
procedure, nopass :: add2 => add procedure, nopass :: add2 => add
procedure :: add_real procedure :: add_real
Show All 25 Lines

flang/test/Semantics/resolve69.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1() subroutine s1()
! C701 (R701) The type-param-value for a kind type parameter shall be a ! C701 (R701) The type-param-value for a kind type parameter shall be a
! constant expression. ! constant expression.
! !
! C702 (R701) A colon shall not be used as a type-param-value except in the ! C702 (R701) A colon shall not be used as a type-param-value except in the
! declaration of an entity that has the POINTER or ALLOCATABLE attribute. ! declaration of an entity that has the POINTER or ALLOCATABLE attribute.
! !
! C704 (R703) In a declaration-type-spec, every type-param-value that is ! C704 (R703) In a declaration-type-spec, every type-param-value that is
▲ Show 20 Lines • Show All 57 Lines • Show Last 20 Lines

flang/test/Semantics/resolve70.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C703 (R702) The derived-type-spec shall not specify an abstract type (7.5.7). ! C703 (R702) The derived-type-spec shall not specify an abstract type (7.5.7).
! This constraint refers to the derived-type-spec in a type-spec. A type-spec ! This constraint refers to the derived-type-spec in a type-spec. A type-spec
! can appear in an ALLOCATE statement, an ac-spec for an array constructor, and ! can appear in an ALLOCATE statement, an ac-spec for an array constructor, and
! in the type specifier of a TYPE GUARD statement ! in the type specifier of a TYPE GUARD statement
! !
! C706 TYPE(derived-type-spec) shall not specify an abstract type (7.5.7). ! C706 TYPE(derived-type-spec) shall not specify an abstract type (7.5.7).
! This is for a declaration-type-spec ! This is for a declaration-type-spec
! !
▲ Show 20 Lines • Show All 65 Lines • Show Last 20 Lines

flang/test/Semantics/resolve71.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C708 An entity declared with the CLASS keyword shall be a dummy argument ! C708 An entity declared with the CLASS keyword shall be a dummy argument
! or have the ALLOCATABLE or POINTER attribute. ! or have the ALLOCATABLE or POINTER attribute.
subroutine s() subroutine s()
type :: parentType type :: parentType
end type end type
class(parentType), pointer :: pvar class(parentType), pointer :: pvar
class(parentType), allocatable :: avar class(parentType), allocatable :: avar
Show All 15 Lines

flang/test/Semantics/resolve72.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C709 An assumed-type entity shall be a dummy data object that does not have ! C709 An assumed-type entity shall be a dummy data object that does not have
! the ALLOCATABLE, CODIMENSION, INTENT (OUT), POINTER, or VALUE attribute and ! the ALLOCATABLE, CODIMENSION, INTENT (OUT), POINTER, or VALUE attribute and
! is not an explicit-shape array. ! is not an explicit-shape array.
subroutine s() subroutine s()
!ERROR: Assumed-type entity 'starvar' must be a dummy argument !ERROR: Assumed-type entity 'starvar' must be a dummy argument
type(*) :: starVar type(*) :: starVar
contains contains
Show All 17 Lines

flang/test/Semantics/resolve73.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C721 A type-param-value of * shall be used only ! C721 A type-param-value of * shall be used only
! * to declare a dummy argument, ! * to declare a dummy argument,
! * to declare a named constant, ! * to declare a named constant,
! * in the type-spec of an ALLOCATE statement wherein each allocate-object is ! * in the type-spec of an ALLOCATE statement wherein each allocate-object is
! a dummy argument of type CHARACTER with an assumed character length, ! a dummy argument of type CHARACTER with an assumed character length,
! * in the type-spec or derived-type-spec of a type guard statement (11.1.11), ! * in the type-spec or derived-type-spec of a type guard statement (11.1.11),
! or ! or
! * in an external function, to declare the character length parameter of the function result. ! * in an external function, to declare the character length parameter of the function result.
Show All 32 Lines

flang/test/Semantics/resolve74.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C722 A function name shall not be declared with an asterisk type-param-value ! C722 A function name shall not be declared with an asterisk type-param-value
! unless it is of type CHARACTER and is the name of a dummy function or the ! unless it is of type CHARACTER and is the name of a dummy function or the
! name of the result of an external function. ! name of the result of an external function.
subroutine s() subroutine s()
type derived(param) type derived(param)
integer, len :: param integer, len :: param
end type end type
Show All 29 Lines

flang/test/Semantics/resolve75.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C726 The length specified for a character statement function or for a ! C726 The length specified for a character statement function or for a
! statement function dummy argument of type character shall be a constant ! statement function dummy argument of type character shall be a constant
! expression. ! expression.
subroutine s() subroutine s()
implicit character(len=3) (c) implicit character(len=3) (c)
implicit character(len=*) (d) implicit character(len=*) (d)
stmtFunc1 (x) = x * 32 stmtFunc1 (x) = x * 32
cStmtFunc2 (x) = "abc" cStmtFunc2 (x) = "abc"
!ERROR: An assumed (*) type parameter may be used only for a (non-statement function) dummy argument, associate name, named constant, or external function result !ERROR: An assumed (*) type parameter may be used only for a (non-statement function) dummy argument, associate name, named constant, or external function result
cStmtFunc3 (dummy) = "abc" cStmtFunc3 (dummy) = "abc"
!ERROR: An assumed (*) type parameter may be used only for a (non-statement function) dummy argument, associate name, named constant, or external function result !ERROR: An assumed (*) type parameter may be used only for a (non-statement function) dummy argument, associate name, named constant, or external function result
dStmtFunc3 (x) = "abc" dStmtFunc3 (x) = "abc"
end subroutine s end subroutine s

flang/test/Semantics/resolve76.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! 15.6.2.5(3) ! 15.6.2.5(3)
module m1 module m1
implicit logical(a-b) implicit logical(a-b)
interface interface
module subroutine sub1(a, b) module subroutine sub1(a, b)
real, intent(in) :: a real, intent(in) :: a
Show All 21 Lines

flang/test/Semantics/resolve77.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests valid and invalid usage of forward references to procedures ! Tests valid and invalid usage of forward references to procedures
! in specification expressions. ! in specification expressions.
module m module m
interface ifn2 interface ifn2
module procedure if2 module procedure if2
end interface end interface
interface ifn3 interface ifn3
module procedure if3 module procedure if3
▲ Show 20 Lines • Show All 43 Lines • Show Last 20 Lines

flang/test/Semantics/resolve78.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
! C743 No component-attr-spec shall appear more than once in a ! C743 No component-attr-spec shall appear more than once in a
! given component-def-stmt. ! given component-def-stmt.
! !
! R737 data-component-def-stmt -> ! R737 data-component-def-stmt ->
! declaration-type-spec [[, component-attr-spec-list] ::] ! declaration-type-spec [[, component-attr-spec-list] ::]
! component-decl-list ! component-decl-list
! component-attr-spec values are: ! component-attr-spec values are:
Show All 23 Lines

flang/test/Semantics/resolve79.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
! C755 The same proc-component-attr-spec shall not appear more than once in a ! C755 The same proc-component-attr-spec shall not appear more than once in a
! given proc-component-def-stmt. ! given proc-component-def-stmt.
! C759 PASS and NOPASS shall not both appear in the same ! C759 PASS and NOPASS shall not both appear in the same
! proc-component-attr-spec-list. ! proc-component-attr-spec-list.
! !
! R741 proc-component-def-stmt -> ! R741 proc-component-def-stmt ->
! PROCEDURE ( [proc-interface] ) , proc-component-attr-spec-list ! PROCEDURE ( [proc-interface] ) , proc-component-attr-spec-list
▲ Show 20 Lines • Show All 47 Lines • Show Last 20 Lines

flang/test/Semantics/resolve80.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
!C778 The same binding-attr shall not appear more than once in a given !C778 The same binding-attr shall not appear more than once in a given
!binding-attr-list. !binding-attr-list.
! !
!R749 type-bound-procedure-stmt !R749 type-bound-procedure-stmt
! PROCEDURE [ [ ,binding-attr-list] :: ]type-bound-proc-decl-list ! PROCEDURE [ [ ,binding-attr-list] :: ]type-bound-proc-decl-list
! or PROCEDURE (interface-name),binding-attr-list::binding-name-list ! or PROCEDURE (interface-name),binding-attr-list::binding-name-list
! !
▲ Show 20 Lines • Show All 52 Lines • Show Last 20 Lines

flang/test/Semantics/resolve81.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C801 The same attr-spec shall not appear more than once in a given ! C801 The same attr-spec shall not appear more than once in a given
! type-declaration-stmt. ! type-declaration-stmt.
! !
! R801 type-declaration-stmt -> ! R801 type-declaration-stmt ->
! declaration-type-spec [[, attr-spec]... ::] entity-decl-list ! declaration-type-spec [[, attr-spec]... ::] entity-decl-list
! attr-spec values are: ! attr-spec values are:
! PUBLIC, PRIVATE, ALLOCATABLE, ASYNCHRONOUS, CODIMENSION, CONTIGUOUS, ! PUBLIC, PRIVATE, ALLOCATABLE, ASYNCHRONOUS, CODIMENSION, CONTIGUOUS,
! DIMENSION (array-spec), EXTERNAL, INTENT (intent-spec), INTRINSIC, ! DIMENSION (array-spec), EXTERNAL, INTENT (intent-spec), INTRINSIC,
▲ Show 20 Lines • Show All 55 Lines • Show Last 20 Lines

flang/test/Semantics/resolve82.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C815 An entity shall not be explicitly given any attribute more than once in ! C815 An entity shall not be explicitly given any attribute more than once in
! a scoping unit. ! a scoping unit.
! !
! R1512 procedure-declaration-stmt -> ! R1512 procedure-declaration-stmt ->
! PROCEDURE ( [proc-interface] ) [[, proc-attr-spec]... ::] ! PROCEDURE ( [proc-interface] ) [[, proc-attr-spec]... ::]
! proc-decl-list ! proc-decl-list
! proc-attr-spec values are: ! proc-attr-spec values are:
! PUBLIC, PRIVATE, BIND(C), INTENT (intent-spec), OPTIONAL, POINTER, ! PUBLIC, PRIVATE, BIND(C), INTENT (intent-spec), OPTIONAL, POINTER,
Show All 38 Lines

flang/test/Semantics/resolve83.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
! For C1543 ! For C1543
interface intFace interface intFace
!WARNING: Attribute 'MODULE' cannot be used more than once !WARNING: Attribute 'MODULE' cannot be used more than once
module pure module real function moduleFunc() module pure module real function moduleFunc()
end function moduleFunc end function moduleFunc
end interface end interface
▲ Show 20 Lines • Show All 48 Lines • Show Last 20 Lines

flang/test/Semantics/resolve84.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C729 A derived type type-name shall not be DOUBLEPRECISION or the same as ! C729 A derived type type-name shall not be DOUBLEPRECISION or the same as
! the name of any intrinsic type defined in this document. ! the name of any intrinsic type defined in this document.
subroutine s() subroutine s()
! This one's OK ! This one's OK
type derived type derived
end type end type
!ERROR: A derived type name cannot be the name of an intrinsic type !ERROR: A derived type name cannot be the name of an intrinsic type
type integer type integer
Show All 17 Lines

flang/test/Semantics/resolve85.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m module m
! C730 The same type-attr-spec shall not appear more than once in a given ! C730 The same type-attr-spec shall not appear more than once in a given
! derived-type-stmt. ! derived-type-stmt.
! !
! R727 derived-type-stmt -> ! R727 derived-type-stmt ->
! TYPE [[, type-attr-spec-list] ::] type-name [( type-param-name-list )] ! TYPE [[, type-attr-spec-list] ::] type-name [( type-param-name-list )]
! type-attr-spec values are: ! type-attr-spec values are:
! ABSTRACT, PUBLIC, PRIVATE, BIND(C), EXTENDS(parent-type-name) ! ABSTRACT, PUBLIC, PRIVATE, BIND(C), EXTENDS(parent-type-name)
Show All 28 Lines

flang/test/Semantics/resolve86.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C736 If EXTENDS appears and the type being defined has a coarray ultimate ! C736 If EXTENDS appears and the type being defined has a coarray ultimate
! component, its parent type shall have a coarray ultimate component. ! component, its parent type shall have a coarray ultimate component.
! !
subroutine s() subroutine s()
type coarrayParent type coarrayParent
real,allocatable, codimension[:] :: parentField real,allocatable, codimension[:] :: parentField
end type coarrayParent end type coarrayParent
Show All 35 Lines

flang/test/Semantics/resolve87.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C737 If EXTENDS appears and the type being defined has a potential ! C737 If EXTENDS appears and the type being defined has a potential
! subobject component of type EVENT_TYPE or LOCK_TYPE from the intrinsic ! subobject component of type EVENT_TYPE or LOCK_TYPE from the intrinsic
! module ISO_FORTRAN_ENV, its parent type shall be EVENT_TYPE or LOCK_TYPE ! module ISO_FORTRAN_ENV, its parent type shall be EVENT_TYPE or LOCK_TYPE
! or have a potential subobject component of type EVENT_TYPE or LOCK_TYPE. ! or have a potential subobject component of type EVENT_TYPE or LOCK_TYPE.
module not_iso_fortran_env module not_iso_fortran_env
type event_type type event_type
end type end type
▲ Show 20 Lines • Show All 81 Lines • Show Last 20 Lines

flang/test/Semantics/resolve88.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C746, C747, and C748 ! C746, C747, and C748
module m module m
use ISO_FORTRAN_ENV use ISO_FORTRAN_ENV
use ISO_C_BINDING use ISO_C_BINDING
! C746 If a coarray-spec appears, it shall be a deferred-coshape-spec-list and ! C746 If a coarray-spec appears, it shall be a deferred-coshape-spec-list and
! the component shall have the ALLOCATABLE attribute. ! the component shall have the ALLOCATABLE attribute.
▲ Show 20 Lines • Show All 66 Lines • Show Last 20 Lines

flang/test/Semantics/resolve89.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C750 Each bound in the explicit-shape-spec shall be a specification ! C750 Each bound in the explicit-shape-spec shall be a specification
! expression in which there are no references to specification functions or ! expression in which there are no references to specification functions or
! the intrinsic functions ALLOCATED, ASSOCIATED, EXTENDS_TYPE_OF, PRESENT, ! the intrinsic functions ALLOCATED, ASSOCIATED, EXTENDS_TYPE_OF, PRESENT,
! or SAME_TYPE_AS, every specification inquiry reference is a constant ! or SAME_TYPE_AS, every specification inquiry reference is a constant
! expression, and the value does not depend on the value of a variable. ! expression, and the value does not depend on the value of a variable.
! !
! C754 Each type-param-value within a component-def-stmt shall be a colon or ! C754 Each type-param-value within a component-def-stmt shall be a colon or
! a specification expression in which there are no references to specification ! a specification expression in which there are no references to specification
▲ Show 20 Lines • Show All 147 Lines • Show Last 20 Lines

flang/test/Semantics/resolve90.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Testing for pointer constant, along with : ! Testing for pointer constant, along with :
! C751 A component shall not have both the ALLOCATABLE and POINTER attributes. ! C751 A component shall not have both the ALLOCATABLE and POINTER attributes.
! C752 If the CONTIGUOUS attribute is specified, the component shall be an ! C752 If the CONTIGUOUS attribute is specified, the component shall be an
! array with the POINTER attribute. ! array with the POINTER attribute.
! C753 The * char-length option is permitted only if the component is of type ! C753 The * char-length option is permitted only if the component is of type
! character. ! character.
subroutine s() subroutine s()
!ERROR: 'nullint' may not have both the POINTER and PARAMETER attributes !ERROR: 'nullint' may not have both the POINTER and PARAMETER attributes
Show All 12 Lines

flang/test/Semantics/resolve91.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for duplicate definitions and initializations, mostly of procedures ! Tests for duplicate definitions and initializations, mostly of procedures
module m module m
procedure(real), pointer :: p procedure(real), pointer :: p
!ERROR: The interface for procedure 'p' has already been declared !ERROR: The interface for procedure 'p' has already been declared
procedure(integer), pointer :: p procedure(integer), pointer :: p
end end
module m1 module m1
▲ Show 20 Lines • Show All 67 Lines • Show Last 20 Lines

flang/test/Semantics/resolve92.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
implicit none implicit none
type t type t
integer :: n integer :: n
end type end type
type t2 type t2
! t and t2 must be resolved to types in m1, not components in t2 ! t and t2 must be resolved to types in m1, not components in t2
Show All 17 Lines

flang/test/Semantics/resolve93.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
subroutine s1() subroutine s1()
character(10) str character(10) str
character(10) str1 character(10) str1
!ERROR: Cannot reference function 'str' as data !ERROR: Cannot reference function 'str' as data
print *, str(1:9), str(7) print *, str(1:9), str(7)
block block
character(10) str2 character(10) str2
character(10) str3 character(10) str3
Show All 35 Lines

flang/test/Semantics/resolve94.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! C929 No specifier shall appear more than once in a given ! C929 No specifier shall appear more than once in a given
! image-selector-spec-list. ! image-selector-spec-list.
! C930 TEAM and TEAM_NUMBER shall not both appear in the same ! C930 TEAM and TEAM_NUMBER shall not both appear in the same
! image-selector-spec-list. ! image-selector-spec-list.
! C931 A stat-variable in an image-selector shall not be a coindexed object. ! C931 A stat-variable in an image-selector shall not be a coindexed object.
subroutine s1() subroutine s1()
use ISO_FORTRAN_ENV use ISO_FORTRAN_ENV
type(team_type) :: team1, team2 type(team_type) :: team1, team2
▲ Show 20 Lines • Show All 63 Lines • Show Last 20 Lines

flang/test/Semantics/resolve95.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test SELECT TYPE and ASSOCIATE errors: C1103 ! Test SELECT TYPE and ASSOCIATE errors: C1103
subroutine s1() subroutine s1()
class(*),allocatable :: calc[:] class(*),allocatable :: calc[:]
integer,save :: icoa[*] integer,save :: icoa[*]
!ERROR: Selector must not be a coindexed object !ERROR: Selector must not be a coindexed object
associate(sel=>icoa[2]) associate(sel=>icoa[2])
end associate end associate
icoa = 2 icoa = 2
allocate(integer::calc[*]) allocate(integer::calc[*])
!ERROR: Selector must not be a coindexed object !ERROR: Selector must not be a coindexed object
select type(sel=>calc[2]) select type(sel=>calc[2])
end select end select
end subroutine end subroutine

flang/test/Semantics/resolve96.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check distinguishability for specific procedures of defined operators and ! Check distinguishability for specific procedures of defined operators and
! assignment. These are different from names because there a normal generic ! assignment. These are different from names because there a normal generic
! is invoked the same way as a type-bound generic. ! is invoked the same way as a type-bound generic.
! E.g. for a generic name like 'foo', the generic name is invoked as 'foo(x, y)' ! E.g. for a generic name like 'foo', the generic name is invoked as 'foo(x, y)'
! while the type-bound generic is invoked as 'x%foo(y)'. ! while the type-bound generic is invoked as 'x%foo(y)'.
! But for 'operator(.foo.)', it is 'x .foo. y' in either case. ! But for 'operator(.foo.)', it is 'x .foo. y' in either case.
! So to check the specifics of 'operator(.foo.)' we have to consider all ! So to check the specifics of 'operator(.foo.)' we have to consider all
▲ Show 20 Lines • Show All 53 Lines • Show Last 20 Lines

flang/test/Semantics/resolve97.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Check errors from illegal (10.1.12 para 2) forward references ! Check errors from illegal (10.1.12 para 2) forward references
! in specification expressions to entities declared later in the ! in specification expressions to entities declared later in the
! same specification part. ! same specification part.
module m1 module m1
integer :: m1j1, m1j2, m1j3, m1j4 integer :: m1j1, m1j2, m1j3, m1j4
contains contains
▲ Show 20 Lines • Show All 85 Lines • Show Last 20 Lines

flang/test/Semantics/resolve98.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Errors when comparing LOGICAL operands ! Errors when comparing LOGICAL operands
program testCompare program testCompare
logical flag1, flag2 logical flag1, flag2
if (flag1 .eqv. .false.) continue if (flag1 .eqv. .false.) continue
if (flag1 .neqv. flag2) continue if (flag1 .neqv. flag2) continue
!ERROR: LOGICAL operands must be compared using .EQV. or .NEQV. !ERROR: LOGICAL operands must be compared using .EQV. or .NEQV.
if (flag1 .eq. .false.) continue if (flag1 .eq. .false.) continue
!ERROR: LOGICAL operands must be compared using .EQV. or .NEQV. !ERROR: LOGICAL operands must be compared using .EQV. or .NEQV.
if (flag1 .ne. flag2) continue if (flag1 .ne. flag2) continue
end program testCompare end program testCompare

flang/test/Semantics/resolve99.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for the index-name of a FORALL statement ! Tests for the index-name of a FORALL statement
module m1 module m1
integer modVar integer modVar
end module m1 end module m1
program indexName program indexName
common /iCommonName/ x common /iCommonName/ x
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

flang/test/Semantics/save01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
MODULE test MODULE test
SAVE SAVE
CONTAINS CONTAINS
PURE FUNCTION pf( ) PURE FUNCTION pf( )
IMPLICIT NONE IMPLICIT NONE
INTEGER :: pf INTEGER :: pf
INTEGER :: mc INTEGER :: mc
!OK: SAVE statement is not inherited by the function !OK: SAVE statement is not inherited by the function
Show All 12 Lines

flang/test/Semantics/select-rank.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!Tests for SELECT RANK Construct(R1148) !Tests for SELECT RANK Construct(R1148)
program select_rank program select_rank
implicit none implicit none
integer, dimension(10:30, 10:20, -1:20) :: x integer, dimension(10:30, 10:20, -1:20) :: x
integer, parameter :: y(*) = [1,2,3,4] integer, parameter :: y(*) = [1,2,3,4]
integer, dimension(5) :: z integer, dimension(5) :: z
integer, allocatable :: a(:) integer, allocatable :: a(:)
▲ Show 20 Lines • Show All 259 Lines • Show Last 20 Lines

flang/test/Semantics/select-rank02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
!Shape analysis related tests for SELECT RANK Construct(R1148) !Shape analysis related tests for SELECT RANK Construct(R1148)
program select_rank program select_rank
implicit none implicit none
integer, dimension(2,3):: arr_pass integer, dimension(2,3):: arr_pass
call check(arr_pass) call check(arr_pass)
contains contains
▲ Show 20 Lines • Show All 54 Lines • Show Last 20 Lines

flang/test/Semantics/selecttype01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test for checking select type constraints, ! Test for checking select type constraints,
module m1 module m1
use ISO_C_BINDING use ISO_C_BINDING
type shape type shape
integer :: color integer :: color
logical :: filled logical :: filled
integer :: x integer :: x
integer :: y integer :: y
▲ Show 20 Lines • Show All 250 Lines • Show Last 20 Lines

flang/test/Semantics/selecttype02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
module m1 module m1
use ISO_C_BINDING use ISO_C_BINDING
type shape type shape
integer :: color integer :: color
logical :: filled logical :: filled
integer :: x integer :: x
integer :: y integer :: y
end type shape end type shape
▲ Show 20 Lines • Show All 42 Lines • Show Last 20 Lines

flang/test/Semantics/selecttype03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test various conditions in C1158. ! Test various conditions in C1158.
implicit none implicit none
type :: t1 type :: t1
integer :: i integer :: i
end type end type
type, extends(t1) :: t2 type, extends(t1) :: t2
▲ Show 20 Lines • Show All 114 Lines • Show Last 20 Lines

flang/test/Semantics/separate-mp01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! case 1: ma_create_new_fun' was not declared a separate module procedure ! case 1: ma_create_new_fun' was not declared a separate module procedure
module m1 module m1
integer :: i integer :: i
interface ma interface ma
module function ma_create_fun( ) result(this) module function ma_create_fun( ) result(this)
integer this integer this
end function end function
▲ Show 20 Lines • Show All 100 Lines • Show Last 20 Lines

flang/test/Semantics/separate-mp02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! When a module subprogram has the MODULE prefix the following must match ! When a module subprogram has the MODULE prefix the following must match
! with the corresponding separate module procedure interface body: ! with the corresponding separate module procedure interface body:
! - C1549: characteristics and dummy argument names ! - C1549: characteristics and dummy argument names
! - C1550: binding label ! - C1550: binding label
! - C1551: NON_RECURSIVE prefix ! - C1551: NON_RECURSIVE prefix
module m1 module m1
▲ Show 20 Lines • Show All 289 Lines • Show Last 20 Lines

flang/test/Semantics/shape.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Test comparisons that use the intrinsic SHAPE() as an operand ! Test comparisons that use the intrinsic SHAPE() as an operand
program testShape program testShape
contains contains
subroutine sub1(arrayDummy) subroutine sub1(arrayDummy)
integer :: arrayDummy(:) integer :: arrayDummy(:)
integer, allocatable :: arrayDeferred(:) integer, allocatable :: arrayDeferred(:)
integer :: arrayLocal(2) = [88, 99] integer :: arrayLocal(2) = [88, 99]
!ERROR: Dimension 1 of left operand has extent 1, but right operand has extent 0 !ERROR: Dimension 1 of left operand has extent 1, but right operand has extent 0
Show All 40 Lines

flang/test/Semantics/spec-expr.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Tests for the 14 items that specify a "specification expression" in section ! Tests for the 14 items that specify a "specification expression" in section
! 10.1.11 ! 10.1.11
! a constant or subobject of a constant, ! a constant or subobject of a constant,
subroutine s1() subroutine s1()
type dType type dType
integer :: field integer :: field
end type dType end type dType
▲ Show 20 Lines • Show All 175 Lines • Show Last 20 Lines

flang/test/Semantics/stop01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
program main program main
implicit none implicit none
integer :: i = -1 integer :: i = -1
integer, pointer :: p_i integer, pointer :: p_i
integer(kind = 1) :: invalid = 0 integer(kind = 1) :: invalid = 0
integer, dimension(1:100) :: iarray integer, dimension(1:100) :: iarray
integer, dimension(:), pointer :: p_iarray integer, dimension(:), pointer :: p_iarray
integer, allocatable, dimension(:) :: aiarray integer, allocatable, dimension(:) :: aiarray
▲ Show 20 Lines • Show All 52 Lines • Show Last 20 Lines

flang/test/Semantics/structconst01.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Error tests for structure constructors. ! Error tests for structure constructors.
! Errors caught by name resolution are tested elsewhere; these are the ! Errors caught by name resolution are tested elsewhere; these are the
! errors meant to be caught by expression semantic analysis, as well as ! errors meant to be caught by expression semantic analysis, as well as
! acceptable use cases. ! acceptable use cases.
! Type parameters are used here to make the parses unambiguous. ! Type parameters are used here to make the parses unambiguous.
! C796 (R756) The derived-type-spec shall not specify an abstract type (7.5.7). ! C796 (R756) The derived-type-spec shall not specify an abstract type (7.5.7).
! This refers to a derived-type-spec used in a structure constructor ! This refers to a derived-type-spec used in a structure constructor
▲ Show 20 Lines • Show All 61 Lines • Show Last 20 Lines

flang/test/Semantics/structconst02.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Error tests for structure constructors: per-component type ! Error tests for structure constructors: per-component type
! (in)compatibility. ! (in)compatibility.
module module1 module module1
interface interface
real function realfunc(x) real function realfunc(x)
real, value :: x real, value :: x
end function realfunc end function realfunc
Show All 34 Lines

flang/test/Semantics/structconst03.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Error tests for structure constructors: C1594 violations ! Error tests for structure constructors: C1594 violations
! from assigning globally-visible data to POINTER components. ! from assigning globally-visible data to POINTER components.
! test/Semantics/structconst04.f90 is this same test without type ! test/Semantics/structconst04.f90 is this same test without type
! parameters. ! parameters.
module usefrom module usefrom
real, target :: usedfrom1 real, target :: usedfrom1
end module usefrom end module usefrom
▲ Show 20 Lines • Show All 157 Lines • Show Last 20 Lines

flang/test/Semantics/structconst04.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! Error tests for structure constructors: C1594 violations ! Error tests for structure constructors: C1594 violations
! from assigning globally-visible data to POINTER components. ! from assigning globally-visible data to POINTER components.
! This test is structconst03.f90 with the type parameters removed. ! This test is structconst03.f90 with the type parameters removed.
module usefrom module usefrom
real, target :: usedfrom1 real, target :: usedfrom1
end module usefrom end module usefrom
▲ Show 20 Lines • Show All 151 Lines • Show Last 20 Lines

flang/test/Semantics/test_errors.py

  • This file was added.
PropertyOld ValueNew Value
File Modenull100755
#!/usr/bin/env python3
awarzynskiUnsubmitted
Done
ReplyInline Actions

#! /usr/bin/env python3

awarzynski: #! /usr/bin/env python3
"""Compiles a source file and checks errors against those listed in the file.
Expects a source file passed as the first argument;
Expects a temporary directory passed as the second argument;
awarzynskiUnsubmitted
Done
ReplyInline Actions

This script does not use FLANG_FC1 at all, so I would delete it. Could you instead document what arguments this script takes?

awarzynski: This script does not use `FLANG_FC1` at all, so I would delete it. Could you instead document…
Expects the Flang frontend driver with options as third argument."""
import sys
import os
import re
import subprocess
import common as cm
from difflib import unified_diff
cm.check_args_long(sys.argv)
srcdir = cm.set_source(sys.argv[1])
src = srcdir.open().read()
tmp = cm.set_temp(sys.argv[2])
cwd = os.getcwd()
actual = ""
expect = ""
diffs = ""
log = ""
flang_fc1 = cm.set_executable(sys.argv[3])
flang_fc1_args = sys.argv[4:]
flang_fc1_options = "-fsyntax-only"
# Compiles, and reads in the output from the compilation process
cmd = [flang_fc1, *flang_fc1_args, flang_fc1_options, str(srcdir)]
try:
os.chdir(tmp)
proc = subprocess.run(cmd, stdout=subprocess.PIPE, stderr=subprocess.PIPE,
check=True, universal_newlines=True)
except subprocess.CalledProcessError as e:
log = e.stderr
if e.returncode >= 128:
print(f"{log}")
sys.exit(1)
except OSError as e:
print(e)
sys.exit(1)
finally:
os.chdir(cwd)
# Cleans up the output from the compilation process to be easier to process
for line in log.split('\n'):
m = re.search(r"(?:.f90:)([0-9]+:).*(?:error:)(.*)", line)
if m:
actual += m.expand(r"\1\2\n")
# Gets the expected errors and their line number
errors = []
for i, line in enumerate(src.split('\n'), 1):
m = re.search(r"(?:^\s*!ERROR: )(.*)", line)
if m:
errors.append(m.group(1))
continue
if errors:
for x in errors:
expect += f"{i}: {x}\n"
errors = []
# Compares the expected errors with the compiler errors
for line in unified_diff(actual.split("\n"), expect.split("\n"), n=0):
line = re.sub(r"(^\-)(\d+:)", r"\nactual at \g<2>", line)
line = re.sub(r"(^\+)(\d+:)", r"\nexpect at \g<2>", line)
diffs += line
if diffs != "":
print(diffs)
print()
print("FAIL")
sys.exit(1)
else:
print()
print("PASS")

flang/test/Semantics/test_errors.sh

  • This file was deleted.
PropertyOld ValueNew Value
File Mode100755null
#!/usr/bin/env bash
# Compile a source file and check errors against those listed in the file.
# Change the compiler by setting the FLANG_FC1 environment variable.
FLANG_FC1_OPTIONS="-fsyntax-only"
srcdir=$(dirname $0)
source $srcdir/common.sh
[[ ! -f $src ]] && die "File not found: $src"
log=$temp/log
actual=$temp/actual
expect=$temp/expect
diffs=$temp/diffs
cmd="$FLANG_FC1 $FLANG_FC1_OPTIONS $src"
( cd $temp; $cmd ) > $log 2>&1
if [[ $? -ge 128 ]]; then
cat $log
exit 1
fi
# $actual has errors from the compiler; $expect has them from !ERROR comments in source
# Format both as "<line>: <text>" so they can be diffed.
sed -n 's=^[^:]*:\([^:]*\):[^:]*: error: =\1: =p' $log > $actual
awk '
BEGIN { FS = "!ERROR: "; }
/^ *!ERROR: / { errors[nerrors++] = $2; next; }
{ for (i = 0; i < nerrors; ++i) printf "%d: %s\n", NR, errors[i]; nerrors = 0; }
' $src > $expect
if diff -U0 $actual $expect > $diffs; then
echo PASS
else
echo "$cmd"
< $diffs \
sed -n -e 's/^-\([0-9]\)/actual at \1/p' -e 's/^+\([0-9]\)/expect at \1/p' \
| sort -n -k 3
die FAIL
fi

flang/test/Semantics/unpack.f90

! RUN: %S/test_errors.sh %s %t %flang_fc1 ! RUN: %python %S/test_errors.py %s %t %flang_fc1
! REQUIRES: shell
! UNPACK() intrinsic function error tests ! UNPACK() intrinsic function error tests
program test_unpack program test_unpack
integer, dimension(2) :: vector = [343, 512] integer, dimension(2) :: vector = [343, 512]
logical, dimension(2, 2) :: mask = & logical, dimension(2, 2) :: mask = &
reshape([.true., .false., .true., .false.], [2, 2]) reshape([.true., .false., .true., .false.], [2, 2])
integer, dimension(2, 2) :: field = reshape([1, 2, 3, 4, 5, 6], [2, 2]) integer, dimension(2, 2) :: field = reshape([1, 2, 3, 4, 5, 6], [2, 2])
integer, dimension(2, 1) :: bad_field = reshape([1, 2], [2, 1]) integer, dimension(2, 1) :: bad_field = reshape([1, 2], [2, 1])
integer :: scalar_field integer :: scalar_field
integer, dimension(2, 2) :: result integer, dimension(2, 2) :: result
result = unpack(vector, mask, field) result = unpack(vector, mask, field)
!ERROR: Dimension 2 of 'mask=' argument has extent 2, but 'field=' argument has extent 1 !ERROR: Dimension 2 of 'mask=' argument has extent 2, but 'field=' argument has extent 1
result = unpack(vector, mask, bad_field) result = unpack(vector, mask, bad_field)
result = unpack(vector, mask, scalar_field) result = unpack(vector, mask, scalar_field)
end program end program
flang/test/Semantics/test_errors.py