http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55238
Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |Joost.VandeVondele at mat
| |dot ethz.ch
--- Comment #3 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch>
2012-11-08 19:27:22 UTC ---
gfortran -O3 also aborts on this testcase at the same location
MODULE dbcsr_dist_operations
TYPE dbcsr_type
LOGICAL :: symmetry
END TYPE
CONTAINS
SUBROUTINE get_stored_coordinates_type(matrix,&
transpose, processor)
TYPE(dbcsr_type), INTENT(IN) :: matrix
LOGICAL, INTENT(INOUT) :: transpose
INTEGER, INTENT(OUT), OPTIONAL :: processor
LOGICAL :: checker_tr
IF (PRESENT (processor)) THEN
IF (matrix%symmetry .AND. checker_tr()) THEN
processor = dbcsr_distribution_processor ()
ENDIF
ENDIF
END SUBROUTINE get_stored_coordinates_type
SUBROUTINE get_block_index_type(matrix, transpose)
TYPE(dbcsr_type), INTENT(IN) :: matrix
LOGICAL, INTENT(OUT) :: transpose
transpose = .FALSE.
CALL get_stored_coordinates_type (matrix, transpose)
END SUBROUTINE get_block_index_type
END MODULE dbcsr_dist_operations
