How to compare two strings in 77?

I thought I could test two strings with the code below, but it doesn't
work. I'm passing a string into the function below, but the result is
always 'not equal'. How are strings compared in Fortran 77? Thanks.

function evaluateinput(str1) result(string)
implicit none
character(12) str1
character(12) string
if (str1 .EQ. 'test') then
string = 'equal'
else
string = 'not equal'
endif
return
end

.

Relevant Pages

  • Re: blank response from curl when posting form data
    ... under 800 characters, everything works. ... I tried passing the post data in strings, ...
    (comp.lang.php)
  • Re: Specifying parameter passing convention and place (register)
    ... but they say nothing of the passing 'place' (specific ... > where data passed between languages will never include bounded strings, ... we might have the following declarations ... in this package: ...
    (comp.lang.ada)
  • something strange with new process Arguments
    ... I'm starting a new process and passing it some arguments to look at a ... The folder gets created correctly. ... I figure it has to be an encoding problem somewhere among the various ... possible encodings and passings of strings going on. ...
    (microsoft.public.dotnet.general)
  • Re: Message Passing Techniques
    ... Basically I will be passing numbers and strings. ... be representing a different host connection in the distributed ... Prev by Date: ...
    (microsoft.public.dotnet.languages.csharp)
  • Re: Conditionally Adding SQL
    ... If you are not blindly EXECing the strings that are passed in, ... passing a string into a VARCHAR parameter any safer than passing that same ... Just because you don't understand that SAFE date formats in SQL ...
    (microsoft.public.sqlserver.programming)