------- Comment #6 from janus at gcc dot gnu dot org 2009-06-23 15:54 -------
Here is a maximally reduced test case, which yields the same error as
iso_c_binding_rename_1.f90 (if the code from comment #2 is removed):
module rename
use, intrinsic :: iso_c_binding, only: my_c_ptr_0 => c_ptr
end module rename
program p
use, intrinsic :: iso_c_binding, my_c_ptr => c_ptr
type(my_c_ptr) :: my_ptr
print *,c_associated(my_ptr)
contains
subroutine sub()
use rename ! (***)
end subroutine
end
The funny thing is: If the line marked with (***) is removed, the error goes
away (while in principle this line should not have any effect at all).
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38894
