Add a test for the new syntax

integration_tests/CMakeLists.txt

@@ -195,6 +195,7 @@ RUN(NAME if_04 LABELS gfortran x86)
 RUN(NAME case_01 LABELS gfortran llvm)
 RUN(NAME case_02 LABELS gfortran llvm)
 RUN(NAME case_03 LABELS gfortran llvm)
+RUN(NAME case_04 LABELS gfortran)
 
 RUN(NAME select_type_01 LABELS gfortran)
 

integration_tests/case_04.f90

@@ -0,0 +1,13 @@
+program case_04
+implicit none
+integer :: i
+i = 4
+
+select case(i)
+    case (1)
+        print *, "1"
+    case (2,3:5,6,8:10)
+        print *, "2,3:5,6,8:10"
+end select
+
+end

tests/reference/ast_f90-case_04-851a3b2.json

@@ -0,0 +1,13 @@
+{
+    "basename": "ast_f90-case_04-851a3b2",
+    "cmd": "lfortran --show-ast-f90 --no-color {infile}",
+    "infile": "tests/../integration_tests/case_04.f90",
+    "infile_hash": "55392e5b3b536591894e60672e49e61f8c579e20edb5d007f1f1afae",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "ast_f90-case_04-851a3b2.stdout",
+    "stdout_hash": "e4899c1c904cae8af40488cfba12148bfbff9b46cfc557b7df3f2594",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}

tests/reference/ast_f90-case_04-851a3b2.stdout

@@ -0,0 +1,11 @@
+program case_04
+implicit none
+integer :: i
+i = 4
+select case (i)
+    case (1)
+        print *, "1"
+    case (2, 3:5, 6, 8:10)
+        print *, "2,3:5,6,8:10"
+end select
+end program case_04

tests/tests.toml

@@ -728,6 +728,11 @@ ast_f90 = true
 asr = true
 llvm = true
 
+[[test]]
+filename = "../integration_tests/case_04.f90"
+ast = true
+ast_f90 = true
+
 [[test]]
 filename = "../integration_tests/program_02.f90"
 ast = true