------- Additional Comments From CARendleman at lbl dot gov 2005-01-05 18:14 ------- Subject: Re: Generic functions not resolved
I'm sure your not offering this as a 'fix' because it results in 'conflicting attributes or multiple declarations of a name' or 'name already used as generic name' errors with other compilers. Thomas dot Koenig at online dot de wrote: >------- Additional Comments From Thomas dot Koenig at online dot de >2005-01-04 13:41 ------- >The problem appears to be related to the fact that "length" >and "size" are both intrinsics. > >If you declare "length" to be external, with the following >patch: > >$ diff -u vec3d.f90 vec3d-works.f90 >--- vec3d.f90 2005-01-04 14:43:07.000000000 +0100 >+++ vec3d-works.f90 2005-01-04 14:43:01.000000000 +0100 >@@ -5,6 +5,7 @@ > ! Public procedures > private > public :: normalise, length >+ external :: length > > ! Module constants > integer, parameter :: SP = selected_real_kind(6) > >compilation works fine. > > > -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17379
