[Bug fortran/17014] New: Internal compiler error in pointer allocation

["guillemborrell at yahoo dot es" <gcc-bugzilla at gcc dot gnu dot org>]

guillem@servidor:~$ gfortran --version
GNU Fortran 95 (GCC 3.5.0 20040724 (experimental) (Debian 3.5-0pre1))

linux 2.4.26
host and target i486

program testfunction

real(4) :: x
real(4), dimension(3) :: y
interface
	function foo(x)
		real(4), dimension(:), pointer :: foo
		real(4), intent(in) :: x
	end function
end interface
x=3
y=foo(x)

print (*,*) y

end program testfunction

function foo(x)
real(4), dimension(:), pointer ::foo		!<=
real(4), intent(in)::x
integer::i
allocate (foo(3))				!<=

do i=1,3
	foo(i)=i*x
end do
end function

make this

guillem@servidor:~$ gfortran -o test_function test_function.f90
f951: ../../src/gcc/fortran/trans-array.c:3023: gfc_trans_dummy_array_bias: La
declaración `(__extension__ ({ const tree __t = (type); if (tree_code_type[(int)
(((enum tree_code) (__t)->common.code))] != ('t')) tree_class_check_failed (__t,
('t'), "../../src/gcc/fortran/trans-array.c", 3023, __FUNCTION__); __t;
})->type.lang_flag_2)' no se cumple.
test_function.f90: In function `foo':
test_function.f90:18: internal compiler error: Abortado
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
For Debian GNU/Linux specific bug reporting instructions,
see <URL:file:///usr/share/doc/gcc-3.4/README.Bugs>.

-- 
           Summary: Internal compiler error in pointer allocation
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: guillemborrell at yahoo dot es
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i486
  GCC host triplet: i486
GCC target triplet: i486


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17014