From aa5b9d6665709d5ca8a098c2e4f9ce2f5c8a25b7 Mon Sep 17 00:00:00 2001 From: Rohit Goswami Date: Sun, 16 Apr 2023 17:12:53 +0000 Subject: TST: Add a test for gh-23533 --- numpy/f2py/tests/src/crackfortran/gh23533.f | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 numpy/f2py/tests/src/crackfortran/gh23533.f (limited to 'numpy/f2py/tests/src') diff --git a/numpy/f2py/tests/src/crackfortran/gh23533.f b/numpy/f2py/tests/src/crackfortran/gh23533.f new file mode 100644 index 000000000..db522afa7 --- /dev/null +++ b/numpy/f2py/tests/src/crackfortran/gh23533.f @@ -0,0 +1,5 @@ + SUBROUTINE EXAMPLE( ) + IF( .TRUE. ) THEN + CALL DO_SOMETHING() + END IF ! ** .TRUE. ** + END -- cgit v1.2.1