gcc/testsuite/gfortran.dg/associate_9.f03

   1 ! { dg-do run }
   2 ! { dg-options "-std=f2003 " }
   3
   4
   5 ! PR fortran/38936
   6 ! Association to derived-type, where the target type is not know
   7 ! during parsing (only resolution).
   8
   9 ! Contributed by Daniel Kraft, d@domob.eu.
  10
  11 MODULE m
  12   IMPLICIT NONE
  13
  14   TYPE :: mynum
  15     INTEGER :: comp
  16   END TYPE mynum
  17
  18   INTERFACE OPERATOR(+)
  19     MODULE PROCEDURE add
  20   END INTERFACE OPERATOR(+)
  21
  22 CONTAINS
  23
  24   PURE FUNCTION add (a, b)
  25     TYPE(mynum), INTENT(IN) :: a, b
  26     TYPE(mynum) :: add
  27
  28     add%comp = a%comp + b%comp
  29   END FUNCTION add
  30
  31 END MODULE m
  32
  33 PROGRAM main
  34   USE :: m
  35   IMPLICIT NONE
  36
  37   TYPE(mynum) :: a
  38   a = mynum (5)
  39
  40   ASSOCIATE (x => add (a, a))
  41     IF (x%comp /= 10) STOP 1
  42   END ASSOCIATE
  43
  44   ASSOCIATE (x => a + a)
  45     IF (x%comp /= 10) STOP 2
  46   END ASSOCIATE
  47 END PROGRAM main