|
Server : Apache System : Linux iad1-shared-b8-43 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : dh_edsupp ( 6597262) PHP Version : 8.2.26 Disable Function : NONE Directory : /lib/python3/dist-packages/numpy/f2py/tests/__pycache__/ |
Upload File : |
o
6��a� � @ s� d dl Zd dlmZ ddlmZ d dlmZ d dlZd dl Z G dd� dej
�Z G dd � d �Z G d
d � d ej
�Z
G d d
� d
ej
�ZdS )� N)�assert_array_equal� )�util)� crackfortranc @ s e Zd ZdZdd� 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
c C sx t jg d�t jd�}t jg d�t jd�}| j�|� t||d � | j�||g� t||d � | j�d�dks:J �d S )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_module s zTestNoSpace.test_moduleN)�__name__�
__module__� __qualname__�coder r r r r r s r c @ s e Zd Zdd� Zdd� ZdS )�TestPublicPrivatec C s� |d }|� d��}|�t�d�� W d � n1 s w Y t�t|�g�}t|�dks1J �|d }d|d d d v sAJ �d
|d d d vsMJ �d|d d d v sYJ �d
|d d d vseJ �d|d d d vsqJ �d
|d d d v s}J �d S )
N�mod.f90r a> 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
r r �private�vars�a�attrspec�public�b�seta��open�write�textwrap�dedentr �str�len�r �tmp_path�f_path�ff�modr r r �test_defaultPrivate) s � z%TestPublicPrivate.test_defaultPrivatec C s� |d }|� d��}|�t�d�� W d � n1 s w Y t�t|�g�}t|�dks1J �|d }d|d d d v sAJ �d
|d d d vsMJ �d|d d d vsYJ �d
|d d d v seJ �d S ) Nr r a+ module foo
public
integer, private :: a
public :: setA
contains
subroutine setA(v)
integer, intent(in) :: v
a = v
end subroutine setA
end module foo
r r r r r! r" r# r% r& r- r r r �test_defaultPublicC s �
z$TestPublicPrivate.test_defaultPublicN)r r r r2 r3 r r r r r ( s r c @ s e Zd ZdZdd� 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
c C �$ dd� }| j �|�}|dksJ �d S )Nc S � | d S �N�{ r ��xr r r �incrl � z5TestExternal.test_external_as_statement.<locals>.incrr8 )r �external_as_statement�r r; �rr r r �test_external_as_statementk � z'TestExternal.test_external_as_statementc C r5 )Nc S r6 r7 r r9 r r r r; r r< z5TestExternal.test_external_as_attribute.<locals>.incrr8 )r �external_as_attributer> r r r �test_external_as_attributeq rA z'TestExternal.test_external_as_attributeN)r r r r r@ rC r r r r r4 Z s r4 c @ s" e Zd ZdZe�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
c C s | j �dd�}|dks
J �d S )Nr r )r r )r �gh2848)r r? r r r � test_gh2848� s z TestCrackFortran.test_gh2848N)r r r �suffixr) r* r rF r r r r rD w s
rD )�numpyr �
numpy.testingr � r �
numpy.f2pyr �tempfiler) �F2PyTestr r r4 rD r r r r �<module> s 2