> Date: Sun, 28 Mar 2004 21:58:36 -0500 > From: Jean Vezina <[log in to unmask]> > > Here is another case that cause problems with some compilers: > > character*5 a > call test(a,'123') > print *,a > end > subroutine test(a,b) > ! the problem statement is the IMPLICIT > implicit character(*) (a-z) > a = b > end > > The problematic statement is the IMPLICIT CHARACTER(*). Why would you want to use this statement anyway? It's more typing than CHARACTER (*) :: a, b > Thanks in advance, > > Jean Vezina