Improve intrinsic tests

[Kishan-Ved]

This PR improves intrinsic tests added in: #3123

[Kishan-Ved]

@HarshitaKalani How do I check for equality with numbers like 1.11803401e+00 as in the file intrinsics_118.f90 ? I tried the usual way (as done in the other tests), but it isn't working.

[Kishan-Ved]

I found that tests of the type: print *, hypot( x = 1.e0_4, 0.5e0_4 ) do not work (for all files). Hence, I haven't added such tests. The other variants work, and I've added tests for them.

[certik]

Thanks!

[HarshitaKalani]

How do I check for equality with numbers like 1.11803401e+00 as in the file intrinsics_118.f90 ? I tried the usual way (as done in the other tests), but it isn't working.

program intrinsics_118
    
    print *, hypot( x = 1.e0_4, y = 0.5e0_4 )
    if ( abs( hypot( x = 1.e0_4, y = 0.5e0_4 ) - 1.11803401 ) > 1e-8 ) error stop
        
    print *, hypot( 1.e0_4, y = 0.5e0_4 )
    if ( abs( hypot( 1.e0_4, y = 0.5e0_4 ) - 1.11803401 ) > 1e-8 ) error stop

    print *, hypot( 1.e0_4, 0.5e0_4 )
    if ( abs( hypot( 1.e0_4, 0.5e0_4 ) - 1.11803401 ) > 1e-8 ) error stop

end program intrinsics_118

@Kishan-Ved , this is one way with which this can be done.