1! { dg-do compile }
2! Tests the fix for PR20874 in which array valued elemental
3! functions were permitted.
4!
5! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
6!
7MODULE Test
8CONTAINS
9  ELEMENTAL FUNCTION LL(I) ! { dg-error "must have a scalar result" }
10    INTEGER, INTENT(IN) :: I
11    INTEGER  :: LL(2)
12  END FUNCTION LL
13!
14! This was already OK.
15!
16  ELEMENTAL FUNCTION MM(I)
17    INTEGER, INTENT(IN) :: I
18    INTEGER, pointer  :: MM ! { dg-error "conflicts with ELEMENTAL" }
19  END FUNCTION MM
20END MODULE Test
21