Throw error for if result of NINT overflows its kind

[HarshitaKalani]

program main
    print*, nint(1e12_8)
    print*, nint(1000000000000.0000000000000000d0)
end

$ gfortran b.f90 && ./a.out
b.f90:2:17:

    2 |     print*, nint(1e12_8)
      |                 1
Error: Result of IDNINT overflows its kind at (1)
b.f90:3:17:

    3 |     print*, nint(1000000000000.0000000000000000d0)
      |                 1
Error: Result of IDNINT overflows its kind at (1)
$ lfortran b.f90
-727379968
-727379968

[HarshitaKalani]

The following should work.

program main
    print*, nint(1e12_8, 8)
    print*, nint(1000000000000.0000000000000000d0, 8)
end

$ gfortran b.f90 && ./a.out
        1000000000000
        1000000000000
$ lfortran b.f90
1000000000000
1000000000000

[shivimathur]

@HarshitaKalani, in the first test, aren't the kinds of both, 1e12_8 and 1000000000000.0000000000000000d0 equal to 8? If it is so, why is gfortran producing an error whereas it gives an answer in the second test?

[HarshitaKalani]

When we do not provide kind value in nint, it returns the result converted to an INTEGER of the default kind which is 4. So the output for test 1 will have kind = 4 and that's why the error.