more on TRUE and FALSE (side-comment)
Alan J Rosenthal
flaps at dgp.toronto.edu
Thu Sep 20 01:44:48 AEST 1990
flee at dictionopolis.cs.psu.edu (Felix Lee) writes:
>Try writing this instead:
> IF(strcmp(name, "hippo"), L10, L20, L10)
> L10: printf("%s is not a hippo\n", name);
> GOTO(L30)
...
>And here are the macros that make it possible:
Try writing this instead (syntax subject to minor slips of memory):
if (name(1) .eq. 1hh
1 .and. name(2) .eq. 1hi
2 .and. name(3) .eq. 1hp
3 .and. name(4) .eq. 1hp
4 .and. name(5) .eq. 1ho) 10, 20, 10
10 write (6,11),name
11 format (1x, a, 15h is not a hippo)
goto 30
And here is the shellscript that makes it possible:
f77 "$@"
More information about the Comp.lang.c
mailing list