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\r
   8   TYPE :: the_distribution\r
   9     INTEGER :: parameters(2)\r
  10   END TYPE the_distribution\r
  11   TYPE (the_distribution), PARAMETER :: the_beta = the_distribution((/99,999/))
  12 CONTAINS\r
  13   SUBROUTINE set_bound(arg_name, test)\r
  14     INTEGER, INTENT (IN) :: arg_name, test
  15     if (arg_name .ne. test) call abort ()\r
  16   END SUBROUTINE set_bound\r
  17 END MODULE cdf_aux_mod
  18 \r
  19 MODULE cdf_beta_mod\r
  20 CONTAINS\r
  21   SUBROUTINE cdf_beta(which, test)\r
  22     USE cdf_aux_mod\r
  23     INTEGER :: which, test\r
  24     CALL set_bound(the_beta%parameters(which), test)\r
  25   END SUBROUTINE cdf_beta\r
  26 END MODULE cdf_beta_mod
  27 \r
  28   use cdf_beta_mod
  29   call cdf_beta (1, 99)
  30   call cdf_beta (2, 999)
  31 end
  32 ! { dg-final { cleanup-modules "cdf_aux_mod cdf_beta_mod" } }