gcc/testsuite/gfortran.dg/initialization_14.f90

   1 ! { dg-do compile }
   2 ! PR 20851
   3 ! Dummy arguments are disallowed in initialization expressions in
   4 ! elemental functions except as arguments to the intrinsic functions
   5 ! BIT_SIZE, KIND, LEN, or to the numeric inquiry functions listed
   6 ! in 13.11.8 F95, likewise not allowed in F2003, now allowed in F2008.
   7 MODULE TT
   8 INTEGER M
   9 CONTAINS
  10    ELEMENTAL REAL FUNCTION two(N)
  11      INTEGER, INTENT(IN) :: N
  12      INTEGER, DIMENSION(N) :: scr ! Now valid under F2008
  13    END FUNCTION
  14
  15    ELEMENTAL REAL FUNCTION twopointfive(N)
  16      INTEGER, INTENT(IN) :: N
  17      INTEGER, DIMENSION(MAX(N,2)) :: scr ! Now valid under F2008
  18    end FUNCTION twopointfive
  19
  20    REAL FUNCTION three(N)
  21      INTEGER, INTENT(IN) :: N
  22      INTEGER, DIMENSION(N) :: scr ! this time it's valid
  23    END FUNCTION
  24
  25    ELEMENTAL REAL FUNCTION four(N)
  26      INTEGER, INTENT(IN) :: N
  27      INTEGER, DIMENSION(bit_size(N)) :: scr ! another valid variant
  28    END FUNCTION
  29
  30    ELEMENTAL REAL FUNCTION gofourit(N)
  31      INTEGER, INTENT(IN) :: N
  32      INTEGER, DIMENSION(MIN(HUGE(N),1)) :: scr ! another valid variant
  33    END FUNCTION
  34
  35    ELEMENTAL REAL FUNCTION fourplusone(N)
  36      INTEGER, INTENT(IN) :: N
  37      INTEGER, DIMENSION(M) :: scr ! another valid variant
  38    END FUNCTION
  39
  40    ELEMENTAL REAL FUNCTION five(X)
  41      real, intent(in) :: x
  42      CHARACTER(LEN=PRECISION(X)) :: C ! valid again
  43    END FUNCTION
  44 END MODULE
  45 END