Attachment #139978 for bug #130502




	   call efexit(-1)
	endif      

C 	call efnema(fid,maa,MED_CONN,MED_ARETE,MED_SEG2,MED_DESC
C     1    ,narr,cret)   
C	if (cret .ne. 0 ) then
C	   print *,'Erreur acces au nombre d''arretes du premier maillage'
C	   call efexit(-1)
C	endif      


         print '(A,I1,A,A4,A,I1,A,I4)','maillage '

Return to bug 130502

Lines 68-79 Link Here

(-)med-2.3.1/tests/f/test33.f (-6 / +6 lines)
68	call efexit(-1)	68	call efexit(-1)
69	endif	69	endif
70		70
71	call efnema(fid,maa,MED_CONN,MED_ARETE,MED_SEG2,MED_DESC	71	C call efnema(fid,maa,MED_CONN,MED_ARETE,MED_SEG2,MED_DESC
72	1 ,narr,cret)	72	C 1 ,narr,cret)
73	if (cret .ne. 0 ) then	73	C if (cret .ne. 0 ) then
74	print *,'Erreur acces au nombre d''arretes du premier maillage'	74	C print *,'Erreur acces au nombre d''arretes du premier maillage'
75	call efexit(-1)	75	C call efexit(-1)
76	endif	76	C endif
77		77
78		78
79	print '(A,I1,A,A4,A,I1,A,I4)','maillage '	79	print '(A,I1,A,A4,A,I1,A,I4)','maillage '