From 4c0b4154879e49f43fc2926d3d62369c732d8653 Mon Sep 17 00:00:00 2001 From: Axel Kohlmeyer Date: Mon, 31 Oct 2022 12:05:16 -0400 Subject: [PATCH] Implied shape arrays for constants are not allowed in Fortran 2008 and later --- unittest/fortran/test_fortran_configuration.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/unittest/fortran/test_fortran_configuration.f90 b/unittest/fortran/test_fortran_configuration.f90 index 3c95249326..0ade62dc6f 100644 --- a/unittest/fortran/test_fortran_configuration.f90 +++ b/unittest/fortran/test_fortran_configuration.f90 @@ -336,7 +336,7 @@ END FUNCTION f_lammps_style_name SUBROUTINE f_setup_has_id() BIND(C) USE keepstuff, ONLY : lmp IMPLICIT NONE - CHARACTER(LEN=100), DIMENSION(*), PARAMETER :: setup_commands = & + CHARACTER(LEN=100), DIMENSION(14), PARAMETER :: setup_commands = & [CHARACTER(LEN=100) :: 'units lj', & 'region simbox block 0 2 0 3 0 4 units box', & 'create_box 1 simbox', & @@ -350,7 +350,6 @@ SUBROUTINE f_setup_has_id() BIND(C) 'fix 1 all nve', & 'group one id 1', & 'variable pi equal acos(-1)', & - !'molecule A file1 file2', & 'run 0' & ]