summaryrefslogtreecommitdiff
path: root/numpy/f2py/tests/src
diff options
context:
space:
mode:
authorRohit Goswami <rog32@hi.is>2023-04-16 17:12:53 +0000
committerRohit Goswami <rog32@hi.is>2023-05-12 17:41:22 +0000
commitaa5b9d6665709d5ca8a098c2e4f9ce2f5c8a25b7 (patch)
treeb5c0c4ec45e9e2f04271a35912c6bc24b70b9509 /numpy/f2py/tests/src
parenta5262604c89c61c8db93241f280c69367c493945 (diff)
downloadnumpy-aa5b9d6665709d5ca8a098c2e4f9ce2f5c8a25b7.tar.gz
TST: Add a test for gh-23533
Diffstat (limited to 'numpy/f2py/tests/src')
-rw-r--r--numpy/f2py/tests/src/crackfortran/gh23533.f5
1 files changed, 5 insertions, 0 deletions
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