Hi,
I just encountered a piece of my own code that seems to compile and work
well, but I am not sure if it is standard conforming. Is the PRESENT
statement in the following code legal?
subroutine test(x,...)
integer, optional, intent(in) :: x
...
contains
subroutine internal(...)
...
IF(PRESENT(x)) ... ! ??? x is not an argument of internal
end subroutine internal
...
end subroutine test
Thanks,
Aleksandar
_____________________________________________
Aleksandar Donev
http://www.pa.msu.edu/~donev/
[log in to unmask]
(517) 432-6770
Department of Physics and Astronomy
Michigan State University
East Lansing, MI 48824-1116
_____________________________________________
|