| ! { dg-do compile } | |
| ! Tests the fix for pr20875. | |
| ! Note 12.7.1 "For a function, the result shall be scalar and shall not have the POINTER attribute." | |
| MODULE Test | |
| CONTAINS | |
| ELEMENTAL FUNCTION LL(I) | |
| INTEGER, INTENT(IN) :: I | |
| INTEGER :: LL | |
| POINTER :: LL ! { dg-error " POINTER attribute conflicts with ELEMENTAL attribute" } | |
| END FUNCTION LL | |
| END MODULE Test |