URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [derived_comp_array_ref_2.f90] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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) call abort ()
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
! { dg-final { cleanup-modules "cdf_aux_mod cdf_beta_mod" } }
Go to most recent revision | Compare with Previous | Blame | View Log