| ! RUN: %python %S/test_errors.py %s %flang_fc1 |
| ! C726 The length specified for a character statement function or for a |
| ! statement function dummy argument of type character shall be a constant |
| implicit character(len=3) (c) |
| implicit character(len=*) (d) |
| !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 |