Skip to content

Instantly share code, notes, and snippets.

@drikosev
Created January 31, 2024 13:40
Show Gist options
  • Select an option

  • Save drikosev/56202b8d928c22da33aebc7cc0e16193 to your computer and use it in GitHub Desktop.

Select an option

Save drikosev/56202b8d928c22da33aebc7cc0e16193 to your computer and use it in GitHub Desktop.
program main
implicit one !implicit=one
integer i;
real r;
print *, i, r
if (1.NE.i) print *, "1.NE.i"
if (1./= r) print *, "1./= r"
end program main
ftest.f90:2: error: syntax:Unexpected name with value 'ONE'. Expected:
'%', '(', ':', '=', '=>', 'CHARACTER', 'CLASS', 'COMPLEX', 'DOUBLE', 'INTEGER',
'LOGICAL', 'NONE', 'REAL', 'TYPE', or '['.
Parsed with Errors: ftest.f90
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment