------- Comment #3 from jv244 at cam dot ac dot uk 2008-01-24 07:27 ------- reduced testcase:
MODULE test TYPE realspace_grid_input_type INTEGER :: distribution_layout(3) END TYPE realspace_grid_input_type TYPE realspace_grid_type INTEGER, DIMENSION (3) :: npts ! # grid points per dimension INTEGER :: group_size END TYPE realspace_grid_type CONTAINS SUBROUTINE rs_grid_create ( rs, input_settings ) TYPE(realspace_grid_type), POINTER :: rs TYPE(realspace_grid_input_type), & INTENT(IN) :: input_settings INTEGER :: n_slices_tmp(3) IF (.NOT. ALL(PACK(n_slices_tmp==input_settings % distribution_layout,& (/-1,-1,-1/)/=input_settings % distribution_layout )& )) STOP END SUBROUTINE rs_grid_create END MODULE -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34946