From 204927f66d2f71da3f4f676769da5684cf85f427 Mon Sep 17 00:00:00 2001 From: Bob Eldering Date: Wed, 22 Mar 2023 16:48:56 +0100 Subject: BUG: Fix bug in parsing F77 style string arrays. Example problematic variable: CHARACTER WORDARR(3)*8 This would be wrapped by an array with shape (3, 8) and dtype |S1, instead of the desired shape (3,) and dtype |S8. See #23356. --- numpy/f2py/tests/src/string/scalar_string.f90 | 2 ++ 1 file changed, 2 insertions(+) (limited to 'numpy/f2py/tests/src') diff --git a/numpy/f2py/tests/src/string/scalar_string.f90 b/numpy/f2py/tests/src/string/scalar_string.f90 index d847668bb..f8f076172 100644 --- a/numpy/f2py/tests/src/string/scalar_string.f90 +++ b/numpy/f2py/tests/src/string/scalar_string.f90 @@ -1,7 +1,9 @@ MODULE string_test character(len=8) :: string + character string77 * 8 character(len=12), dimension(5,7) :: strarr + character strarr77(5,7) * 12 END MODULE string_test -- cgit v1.2.1