gcc/testsuite/gfortran.dg/derived_comp_array_ref_2.f90

   1 ! { dg-do run }
   2 ! Tests the fix for PR31564, in which the actual argument to
   3 ! the call for set_bound was simplified when it should not be.
   4 !
   5 ! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
   6 !
   7 MODULE cdf_aux_mod
   8   TYPE :: the_distribution
   9     INTEGER :: parameters(2)
  10   END TYPE the_distribution
  11   TYPE (the_distribution), PARAMETER :: the_beta = the_distribution((/99,999/))
  12 CONTAINS
  13   SUBROUTINE set_bound(arg_name, test)
  14     INTEGER, INTENT (IN) :: arg_name, test
  15     if (arg_name .ne. test) STOP 1
  16   END SUBROUTINE set_bound
  17 END MODULE cdf_aux_mod
  18
  19 MODULE cdf_beta_mod
  20 CONTAINS
  21   SUBROUTINE cdf_beta(which, test)
  22     USE cdf_aux_mod
  23     INTEGER :: which, test
  24     CALL set_bound(the_beta%parameters(which), test)
  25   END SUBROUTINE cdf_beta
  26 END MODULE cdf_beta_mod
  27
  28   use cdf_beta_mod
  29   call cdf_beta (1, 99)
  30   call cdf_beta (2, 999)
  31 end