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
!----------------------------
