From 96463a8376c859c865bbc9f5ede0d0e8f3f110f9 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 22 May 2023 12:10:20 +0200 Subject: [PATCH 1/2] Fixing too modern fortran test --- tests/test_f.f90 | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/tests/test_f.f90 b/tests/test_f.f90 index c4fff33..089e612 100644 --- a/tests/test_f.f90 +++ b/tests/test_f.f90 @@ -129,7 +129,19 @@ subroutine test_write(file_name, back_end) basis_shell_num = 24 basis_nucleus_index = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24 /) - label = [character(len=8) :: 'C', 'Na','C', 'C 66', 'C','C', 'H 99', 'Ru', 'H', 'H', 'H', 'H' ] + allocate(character(len=8) :: label(12)) + label(1) = 'C' + label(2) = 'Na' + label(3) = 'C' + label(4) = 'C 66' + label(5) = 'C' + label(6) = 'C' + label(7) = 'H 99' + label(8) = 'Ru' + label(9) = 'H' + label(10)= 'H' + label(11)= 'H' + label(12)= 'H' sym_str = 'B3U with some comments' From 7206d5176089f1109078ad38cb9a4295a1b0a66e Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 22 May 2023 12:19:58 +0200 Subject: [PATCH 2/2] Fixed tests with gfortran 4 --- tests/test_f.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/test_f.f90 b/tests/test_f.f90 index 089e612..fa7d2d1 100644 --- a/tests/test_f.f90 +++ b/tests/test_f.f90 @@ -69,8 +69,8 @@ subroutine test_write(file_name, back_end) double precision :: charge(12) double precision :: coord(3,12) - character(len=:), allocatable :: sym_str - character(len=:), allocatable :: label(:) + character(len=32), allocatable :: sym_str + character(len=8), allocatable :: label(:) double precision, allocatable :: energy(:) integer , allocatable :: spin(:) @@ -129,7 +129,7 @@ subroutine test_write(file_name, back_end) basis_shell_num = 24 basis_nucleus_index = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24 /) - allocate(character(len=8) :: label(12)) + allocate(label(12)) label(1) = 'C' label(2) = 'Na' label(3) = 'C'