http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55763
Tobias Burnus <burnus at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |burnus at gcc dot gnu.org --- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-12-20 16:30:23 UTC --- Another follow up: The following code causes an ICE (segfault): 0x5989bc select_type_set_tmp ../../gcc/fortran/match.c:5299 0x5a0015 gfc_match_type_is() ../../gcc/fortran/match.c:5556 If one changes the commented lines, one gets the bogus error message: type is (integer) 1 Error: Assumed shape array at (1) must be a dummy argument !---------------------------- module mpi_f08_f implicit none abstract interface subroutine user_function( inoutvec ) class(*), dimension(:), intent(inout) :: inoutvec end subroutine user_function end interface end module module mod_test use mpi_f08_f implicit none contains subroutine my_function( invec ) ! <<< ICE ! subroutine my_function( inoutvec ) ! <<< BOGUS ERROR class(*), dimension(:), intent(inout) :: inoutvec select type (inoutvec) type is (integer) inoutvec = 2*inoutvec end select end subroutine my_function end module !----------------------------