Aleksandar Donev wrote:
> Does the LEN parameter enter in generic resolution for character
> arguments in Fortran 95?
I forgot the example I wanted to include. NAG for example complains x
and y cannot be in the generic and compiles if y is removed from it.
PGI compiles this one fine but says it cannot resolve the generic if I
remove y from it.
program test
interface gen
subroutine x(c)
character(len=1) :: c
end subroutine
subroutine y(c)
character(len=*) :: c
end subroutine
end interface
character(len=2) :: c
call gen(c)
contains
subroutine sub(c)
character(len=*) :: c
call gen(c)
end subroutine
end program
Aleks
|