summaryrefslogtreecommitdiff
path: root/numpy/f2py/tests/src
diff options
context:
space:
mode:
authorDamien Caliste <dcaliste@free.fr>2020-03-27 11:12:47 +0100
committerDamien Caliste <dcaliste@free.fr>2022-01-04 09:22:33 +0100
commit26ff6793904f6a59379b91811e9d2e383aed853c (patch)
tree3c74d4807209d0e7f6dd23c0035f6f3b26613078 /numpy/f2py/tests/src
parent20f972ce3693d7700afe51898089613ebe4b3ee5 (diff)
downloadnumpy-26ff6793904f6a59379b91811e9d2e383aed853c.tar.gz
ENH: add inline definition of access rights for Fortran types
Allow to parse type definition with inline acess specifier, like: type, public :: foo end type foo
Diffstat (limited to 'numpy/f2py/tests/src')
-rw-r--r--numpy/f2py/tests/src/crackfortran/accesstype.f9013
1 files changed, 13 insertions, 0 deletions
diff --git a/numpy/f2py/tests/src/crackfortran/accesstype.f90 b/numpy/f2py/tests/src/crackfortran/accesstype.f90
new file mode 100644
index 000000000..e2cbd445d
--- /dev/null
+++ b/numpy/f2py/tests/src/crackfortran/accesstype.f90
@@ -0,0 +1,13 @@
+module foo
+ public
+ type, private, bind(c) :: a
+ integer :: i
+ end type a
+ type, bind(c) :: b_
+ integer :: j
+ end type b_
+ public :: b_
+ type :: c
+ integer :: k
+ end type c
+end module foo