[patch, committed] Fix gfortran.fortran-torture/execute/character_passing.f90

[Thomas Koenig]

Committed as obvious on mainline and 4.0 after checking that the
test still passes.

	Thomas

2005-08-09  Thomas Koenig  <Thomas.Koenig@online.de>

	* gfortran/fortran.torture/execute/character_passing.f90:
	Fix types for LSAME.

Index: gfortran.fortran-torture/execute/character_passing.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90,v
retrieving revision 1.1
diff -c -p -r1.1 character_passing.f90
*** gfortran.fortran-torture/execute/character_passing.f90      18 Feb 2005 14:36:54 -0000      1.1
--- gfortran.fortran-torture/execute/character_passing.f90      9 Aug 2005 20:52:28 -0000
***************
*** 3,13 ****
  ! the character agruments.
        program foo
        character*1 a1, a2, b
        a1='A'
        a2='A'
        b='B'
        x = LSAME(a1,a2)
!       if ( x.ne.1 ) then
          call abort  ();
        endif
        end
--- 3,14 ----
  ! the character agruments.
        program foo
        character*1 a1, a2, b
+       logical LSAME, x
        a1='A'
        a2='A'
        b='B'
        x = LSAME(a1,a2)
!       if ( .not. x ) then
          call abort  ();
        endif
        end