llvm-project/flang/test/Semantics/resolve75.f90

! RUN: %S/test_errors.sh %s %t %f18
! C726 The length specified for a character statement function or for a 
! statement function dummy argument of type character shall be a constant 
! expression.
subroutine s()
  implicit character(len=3) (c)
  implicit character(len=*) (d)
  stmtFunc1 (x) = x * 32
  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
  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
  dStmtFunc3 (x) = "abc"
end subroutine s
[flang][NFC] Simplify semantics test scripts There were several different ways of handling the option to f18 to find predefined modules: - test_errors.sh was created by cmake substituting FLANG_INTRINSIC_MODULES_DIR into test_errors.sh.in - some tests used the flang script which has the option built it - some tests used %f18_with_includes which was replaced by the path to f18 plus the -I option - some included -I../../include/flang in their run command To make this more consistent, change %f18 to include the -intrinsic-module-directory option and use it everywhere, including to replace %flang and %f18_with_includes. This requires changing all of the invocations of the test scripts to put %f18 at the end so that it can expand to more than one argument. This eliminates the need to generate test_errors.sh which means we don't need flang/test/Semantics/CMakeLists.txt or the %B substitution. That makes the test_errors.sh command like the others, replacing %B/test/Semantics/test_errors.sh with %S/test_errors.sh. Also remove the OPTIONS: functionality as custom options can be included in the RUN: command. And remove -I/../../include/flang as that is now always included. Differential Revision: https://reviews.llvm.org/D79634 2020-05-12 02:38:53 +08:00			`! RUN: %S/test_errors.sh %s %t %f18`
[flang] Semantic checks for C712 through C727 I've updated the compiler and test source with references to the contraints at the points where they were enforced and tested. Many of these were already implemented and required no code change. A few constraint checks were both implemented and tested, and I only added references to the constraint numbers in the compiler source and tests. Here are the things I had to implement: Constraint C716 states that, in a REAL constant, if both a kind-param and an exponent letter appear, the exponent letter must be 'E'. Constraints C715 and C719 require that a KIND value be actually implemented. Constraint C722 requires that functions that return assumed-length character types are external. Constraint C726 disallows assumed lenght charater types for dummy arguments and return types. Original-commit: flang-compiler/f18@45998741e5f04bba7db6eed6a4d27c1d25209b41 Reviewed-on: https://github.com/flang-compiler/f18/pull/1031 Tree-same-pre-rewrite: false 2020-02-27 12:19:48 +08:00			`! C726 The length specified for a character statement function or for a`
			`! statement function dummy argument of type character shall be a constant`
			`! expression.`
			`subroutine s()`
			`implicit character(len=3) (c)`
			`implicit character(len=*) (d)`
			`stmtFunc1 (x) = x * 32`
			`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`
			`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`
			`dStmtFunc3 (x) = "abc"`
			`end subroutine s`