HEX

File: //lib/python3/dist-packages/numpy/f2py/tests/__pycache__/test_crackfortran.cpython-310.pyc
o

6��a��@s�ddlZddlmZddlmZddlmZddlZddl	Z	Gdd�dej
�ZGdd	�d	�ZGd
d�dej
�Z
Gdd
�d
ej
�ZdS)�N)�assert_array_equal�)�util)�crackfortranc@seZdZdZdd�ZdS)�TestNoSpacea|
        subroutine subb(k)
          real(8), intent(inout) :: k(:)
          k=k+1
        endsubroutine

        subroutine subc(w,k)
          real(8), intent(in) :: w(:)
          real(8), intent(out) :: k(size(w))
          k=w+1
        endsubroutine

        function t0(value)
          character value
          character t0
          t0 = value
        endfunction
    cCsxtjgd�tjd�}tjgd�tjd�}|j�|�t||d�|j�||g�t||d�|j�d�dks:J�dS)N)r��)�dtyper��2)�np�array�float64�module�subbr�subc�t0)�self�k�w�r�D/usr/lib/python3/dist-packages/numpy/f2py/tests/test_crackfortran.py�test_moduleszTestNoSpace.test_moduleN)�__name__�
__module__�__qualname__�coderrrrrr	src@seZdZdd�Zdd�ZdS)�TestPublicPrivatecCs�|d}|�d��}|�t�d��Wd�n1swYt�t|�g�}t|�dks1J�|d}d|ddd	vsAJ�d
|ddd	vsMJ�d|ddd	vsYJ�d
|ddd	vseJ�d|ddd	vsqJ�d
|ddd	vs}J�dS)
N�mod.f90ra>            module foo
              private
              integer :: a
              public :: setA
              integer :: b
            contains
              subroutine setA(v)
                integer, intent(in) :: v
                a = v
              end subroutine setA
            end module foo
            rr�private�vars�a�attrspec�public�b�seta��open�write�textwrap�dedentr�str�len�r�tmp_path�f_path�ff�modrrr�test_defaultPrivate)s�z%TestPublicPrivate.test_defaultPrivatecCs�|d}|�d��}|�t�d��Wd�n1swYt�t|�g�}t|�dks1J�|d}d|ddd	vsAJ�d
|ddd	vsMJ�d|ddd	vsYJ�d
|ddd	vseJ�dS)Nrra+            module foo
              public
              integer, private :: a
              public :: setA
            contains
              subroutine setA(v)
                integer, intent(in) :: v
                a = v
              end subroutine setA
            end module foo
            rrrr r!r"r#r%r&r-rrr�test_defaultPublicCs�
z$TestPublicPrivate.test_defaultPublicN)rrrr2r3rrrrr(src@s eZdZdZdd�Zdd�ZdS)�TestExternalaY
        integer(8) function external_as_statement(fcn)
        implicit none
        external fcn
        integer(8) :: fcn
        external_as_statement = fcn(0)
        end

        integer(8) function external_as_attribute(fcn)
        implicit none
        integer(8), external :: fcn
        external_as_attribute = fcn(0)
        end
    cC�$dd�}|j�|�}|dksJ�dS)NcS�|dS�N�{r��xrrr�incrl�z5TestExternal.test_external_as_statement.<locals>.incrr8)r�external_as_statement�rr;�rrrr�test_external_as_statementk�z'TestExternal.test_external_as_statementcCr5)NcSr6r7rr9rrrr;rr<z5TestExternal.test_external_as_attribute.<locals>.incrr8)r�external_as_attributer>rrr�test_external_as_attributeqrAz'TestExternal.test_external_as_attributeN)rrrrr@rCrrrrr4Zsr4c@s"eZdZdZe�d�Zdd�ZdS)�TestCrackFortranz.f90a
      subroutine gh2848( &
        ! first 2 parameters
        par1, par2,&
        ! last 2 parameters
        par3, par4)

        integer, intent(in)  :: par1, par2
        integer, intent(out) :: par3, par4

        par3 = par1
        par4 = par2

      end subroutine gh2848
    cCs|j�dd�}|dks
J�dS)Nrr)rr)r�gh2848)rr?rrr�test_gh2848�szTestCrackFortran.test_gh2848N)rrr�suffixr)r*rrFrrrrrDws
rD)�numpyr�
numpy.testingr�r�
numpy.f2pyr�tempfiler)�F2PyTestrrr4rDrrrr�<module>s2