Restructures signature help tests and adds intrinsic test

Author: gnikit

test/test_server.py

@@ -183,6 +183,7 @@ def check_return(result_array):
             ["test_inherit", 2, 0],
             ["test_int", 2, 0],
             ["test_mod", 2, 0],
+            ["test_nan", 2, 0],
             ["test_nonint_mod", 2, 0],
             ["test_preproc_keywords", 2, 0],
             ["test_private", 2, 8],

test/test_server_signature_help.py

@@ -46,3 +46,21 @@ def test_subroutine_signature_help():
     assert len(ref) == len(results) - 1
     for i, r in enumerate(ref):
         validate_sigh(results[i + 1], r)
+
+
+def test_intrinsics():
+
+    string = write_rpc_request(
+        1, "initialize", {"rootPath": str(test_dir / "signature")}
+    )
+    file_path = test_dir / "signature" / "nested_sigs.f90"
+    string += sigh_request(file_path, 8, 77)
+    errcode, results = run_request(
+        string, ["--hover_signature", "--use_signature_help", "-n", "1"]
+    )
+    assert errcode == 0
+
+    ref = [[0, 2, "REAL(A, KIND=kind)"]]
+    assert len(ref) == len(results) - 1
+    for i, r in enumerate(ref):
+        validate_sigh(results[i + 1], r)

test/test_source/signature/nested_sigs.f90

@@ -0,0 +1,10 @@
+program test_nan
+   use, intrinsic :: iso_fortran_env, only: sp=>real32, dp=>real64, qp=>real128
+   use, intrinsic :: ieee_arithmetic, only: ieee_value, ieee_quiet_nan, ieee_is_nan
+   implicit none
+
+   complex(qp) :: nan_zp
+
+   nan_zp = ieee_value(1.,ieee_quiet_nan)
+   print '(A4,2X,F5.1,6X,L1,2X,Z32)','zp',real(nan_zp), ieee_is_nan(real(nan_zp)),nan_zp
+end program test_nan