diff --git a/test/parse/test_parse.f90 b/test/parse/test_parse.f90
index 8935426..f851eed 100644
--- a/test/parse/test_parse.f90
+++ b/test/parse/test_parse.f90
@@ -16,8 +16,8 @@ subroutine parse_suite(testsuites, context)
         type(testsuite_type), allocatable, intent(out) :: testsuites(:)
         type(context_t) :: context
 
-        testsuites = &![new_testsuite("Test input file: Success", collect_suite1, context),&
-                      [new_testsuite("Test input file: Fail", collect_suite2, context)&
+        testsuites = [new_testsuite("Test input file: Success", collect_suite1, context),&
+                      new_testsuite("Test input file: Fail", collect_suite2, context)&
                      ]
 
     end subroutine parse_suite