Update ChangeLog and version files for release
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr62695.f90
blob7d80a856e106bc6a57b44458ca37e2ec42e21016
1 ! { dg-do compile }
2 ! { dg-options "-O -fipa-pta" }
4 MODULE dbcsr_dist_operations
5 TYPE dbcsr_mp_obj
6 END TYPE dbcsr_mp_obj
7 INTERFACE
8 SUBROUTINE dbcsr_mp_new(mp_env, pgrid, mp_group, mynode, numnodes, myprow,&
9 mypcol)
10 IMPORT
11 TYPE(dbcsr_mp_obj), INTENT(OUT) :: mp_env
12 INTEGER, DIMENSION(0:, 0:), INTENT(IN) :: pgrid
13 END SUBROUTINE dbcsr_mp_new
14 END INTERFACE
15 CONTAINS
16 SUBROUTINE dbcsr_mp_make_env (mp_env, mp_group, &
17 nprocs, pgrid_dims, error)
18 TYPE(dbcsr_mp_obj), INTENT(OUT) :: mp_env
19 OPTIONAL :: pgrid_dims
20 INTEGER :: error_handle, group, mynode, &
21 numnodes, pcol, prow
22 INTEGER, ALLOCATABLE, DIMENSION(:, :) :: pgrid
23 INTEGER, DIMENSION(2) :: coord, myploc, npdims
24 CALL dbcsr_mp_new (mp_env, pgrid, group, mynode, numnodes,&
25 myprow=myploc(1), mypcol=myploc(2))
26 END SUBROUTINE dbcsr_mp_make_env
27 END MODULE dbcsr_dist_operations