...together with constraint C404 require the kind type parameter to have a value...a program of a non-supported kind type parameter value makes the program...is something like subroutine whatever real(kind=137) X end standard conforming? ...happens to support 137 as a kind. Doesn't that mean the subroutine... postulate] processor that supports a kind of 137 change this? To ...

....caltech.edu> wrote: James Giles wrote: KIND and KIND inquiry functions allow even greater portability ...: it does not test for different real kinds with different exponent ranges but the same precision....0) PRINT *,'There may be more real kinds' PRINT * DO i = 1,last IF(ikind(i...0) PRINT *,'There may be more integer kinds' END -- John Harper, School of Mathematics, Statistics ...

...> (snip) The type REAL (with no KIND specified) almost certainly always matches float on your corresponding C ... Of course you have to USE the ISO_C_BINDING module KIND and KIND inquiry functions allow even greater portability because they ...single precision on that mainframe. As you noted though, specific KIND numbers are *not* portable. This was true in the CDC ...

... Giles wrote: (snip) The type REAL (with no KIND specified) almost certainly always matches float on your corresponding C or ... less certain that Fortran INTEGER is a C int. KIND and KIND inquiry functions allow even greater portability because they ...> single precision on that mainframe. As you noted though, specific KIND numbers are *not* portable. This was true in the CDC ...

... is rather limited, I'd like to know: (a) which Fortran compilers do not allow real(4) NAG f95 Release 5.0 with no -kind option or with -kind=sequential is one of them. It uses 1 for default real, 2 for double precision. -- John Harper, School of Mathematics, Statistics and Computer Science, Victoria ...

... you are using. I disagree. ... Yes, rule R404 together with constraint C404 require the kind type parameter to have a value supported by the processor. However, this means that the use within a program of a non-supported kind type parameter value makes the program invalid on that particular processor, but such a program is still ...

... mean the same thing: Real :: a Real(kind(0.0e0)) :: a Real(kind ... the same thing: Double precision :: b Real(kind(0.0d0)) :: b Real(kind ... b The type REAL (with no KIND specified) almost certainly always matches float ...s what you can use. KIND and KIND inquiry functions allow even greater.... As you noted though, specific KIND numbers are *not* portable. -- J. ...

...> It is even possible that a Fortran compiler could use different kind numbers to distinguish different representation methods that use the same amount...reals, a Fortran compiler for that hardware could use one kind number for the native SP format, a different kind number for the IEEE SP format, and third and fourth kind numbers for the native and IEEE DP formats. AFAIK, ...

... using named constants for the kinds, as in: integer, parameter :: sp =...(0.0e0)) integer, parameter :: dp = kind(0.0d0)) real(sp) :: a ... its own unique list of kind numbers and the representation method ... Fortran compiler could use different kind numbers to distinguish different representation ... Develop a module of all kind numbers and other processor dependencies ...

... The standard requires that the kind number be one supported by ... explicitly anticipates the use of kind type parameter values not supported ... the use of non-supported kind type parameters. Section 1.5 ...an intrinsic type with a kind type parameter value not supported...with constraint C404 require the kind type parameter to have a...program of a non-supported kind type parameter value makes the...