| ! { dg-do run } |
| ! Tests the fix for PR31564, in which the actual argument to |
| ! the call for set_bound was simplified when it should not be. |
| ! |
| ! Contributed by Michael Richmond <michael.a.richmond@nasa.gov> |
| ! |
| MODULE cdf_aux_mod
|
| TYPE :: the_distribution
|
| INTEGER :: parameters(2)
|
| END TYPE the_distribution
|
| TYPE (the_distribution), PARAMETER :: the_beta = the_distribution((/99,999/)) |
| CONTAINS
|
| SUBROUTINE set_bound(arg_name, test)
|
| INTEGER, INTENT (IN) :: arg_name, test |
| if (arg_name .ne. test) STOP 1
|
| END SUBROUTINE set_bound
|
| END MODULE cdf_aux_mod |
|
|
| MODULE cdf_beta_mod
|
| CONTAINS
|
| SUBROUTINE cdf_beta(which, test)
|
| USE cdf_aux_mod
|
| INTEGER :: which, test
|
| CALL set_bound(the_beta%parameters(which), test)
|
| END SUBROUTINE cdf_beta
|
| END MODULE cdf_beta_mod |
|
|
| use cdf_beta_mod |
| call cdf_beta (1, 99) |
| call cdf_beta (2, 999) |
| end |