ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implied shape arrays for constants are not allowed in Fortran 2008 and later

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-10-31 12:05:16 -04:00
parent 00ec3575c4
commit 4c0b415487
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
unittest/fortran/test_fortran_configuration.f90
View File

@ -336,7 +336,7 @@ END FUNCTION f_lammps_style_name
SUBROUTINE f_setup_has_id() BIND(C) SUBROUTINE f_setup_has_id() BIND(C)
USE keepstuff, ONLY : lmp USE keepstuff, ONLY : lmp
IMPLICIT NONE IMPLICIT NONE
CHARACTER(LEN=100), DIMENSION(*), PARAMETER :: setup_commands = & CHARACTER(LEN=100), DIMENSION(14), PARAMETER :: setup_commands = &
[CHARACTER(LEN=100) :: 'units lj', & [CHARACTER(LEN=100) :: 'units lj', &
'region simbox block 0 2 0 3 0 4 units box', & 'region simbox block 0 2 0 3 0 4 units box', &
'create_box 1 simbox', & 'create_box 1 simbox', &
@ -350,7 +350,6 @@ SUBROUTINE f_setup_has_id() BIND(C)
'fix 1 all nve', & 'fix 1 all nve', &
'group one id 1', & 'group one id 1', &
'variable pi equal acos(-1)', & 'variable pi equal acos(-1)', &
!'molecule A file1 file2', &
'run 0' & 'run 0' &
] ]