KIND statement causing compiler errors

[shuttledude]

The following console app program will not compile in Compaq Visual Fortran 6.0 . What could I possibly be doing wrong?!

program kind
implicit none
integer single, double
single = KIND(1.0E00)
double = KIND(1.0D00)
WRITE(*, 10) single

10 FORMAT(1x, 'single is ', I2)
WRITE(*, 20) double

20 FORMAT(1x, 'double is ', I2)

end program kind

For each of the statements that have KIND in them, I get this error statement:

Error: This global name is invalid in this context. [KIND]

[Jugoslav_Dujic]

How about renaming your PROGRAM unit name to something else? ;;)

Jugoslav

[Steven_L_Intel1]

Right - you have hidden the name of the intrinsic KIND function by naming your program KIND.