From 5809f8aa9f05dc8d7a0031dac72fe108e60e02c2 Mon Sep 17 00:00:00 2001
From: Thomas Rose <39367840+Thomas3R@users.noreply.github.com>
Date: Fri, 13 Sep 2024 14:47:47 +0200
Subject: [PATCH] Adjust string length

---
 test/unit/molstock.f90   | 2 +-
 test/unit/test_gfnff.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/unit/molstock.f90 b/test/unit/molstock.f90
index a2ed7689d..2123d48e4 100644
--- a/test/unit/molstock.f90
+++ b/test/unit/molstock.f90
@@ -57,7 +57,7 @@ subroutine getMolecule(mol, name)
       case ('mgh2'); call MgH2(mol)
       case ('x06_b'); call x06_benzene(mol)
       case ('mcv15'); call mcv15(mol)
-      case ('Th_1519394'); call Th_1519394(mol)
+      case ('Th_15'); call Th_1519394(mol)
       case ('Ce_0a7745'); call Ce_0a7745(mol)
       end select
 
diff --git a/test/unit/test_gfnff.f90 b/test/unit/test_gfnff.f90
index 86fa9c7d6..48672c273 100644
--- a/test/unit/test_gfnff.f90
+++ b/test/unit/test_gfnff.f90
@@ -705,7 +705,7 @@ subroutine test_gfnff_pbc(error)
     logical, parameter :: pbc(3) = [.true., .true., .true. ]
     ! structures from X23, mcVOL22, and GFN-FF for Ln/An paper
     character(len=*), parameter :: pbc_strucs(3) = [&
-       & "x06_b", "mcv15", "Th_1519394"]
+       & "x06_b", "mcv15", "Th_15"]
     !> references for original GFN-FF
     real(wp), parameter :: ref_energies(3) = &
         & [-9.522300429916_wp, -11.059826732607_wp, -46.265672914_wp ]