gcc/testsuite/gfortran.dg/elemental_pointer_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for pr20875.
   3 ! Note 12.7.1 "For a function, the result shall be scalar and shall not have the POINTER attribute."
   4 MODULE Test
   5 CONTAINS
   6   ELEMENTAL FUNCTION LL(I)
   7     INTEGER, INTENT(IN) :: I
   8     INTEGER :: LL
   9     POINTER  :: LL ! { dg-error " POINTER attribute conflicts with ELEMENTAL attribute" }
  10   END FUNCTION LL
  11 END MODULE Test
  12
  13 ! { dg-final { cleanup-modules "Test" } }