https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80235
--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- Reduced submodule submodule ( m ) sm contains module subroutine cgca_pfem_map( origin, rot, bcol, bcou ) implicit none real( kind=rdef ), intent( in ) :: & origin(3), & ! origin of the "box" cs, in FE cs rot(3,3), & ! rotation tensor *from* FE cs *to* CA cs bcol(3), & ! lower phys. coords of the coarray on image bcou(3) ! upper phys. coords of the coarray on image integer( kind=idef ) :: maxfe maxfe = size( cgca_pfem_centroid_tmp%r, dim=2 ) call co_max( maxfe ) end subroutine cgca_pfem_map end submodule sm