Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Add new entry in Release_Notes.
[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / datatype / typesnamef90.f90
index 27f6a03..c7cca61 100644 (file)
@@ -1,5 +1,5 @@
 ! This file created from test/mpi/f77/datatype/typesnamef.f with f77tof90
-! -*- Mode: Fortran; -*- 
+! -*- Mode: Fortran; -*-
 !
 !  (C) 2003 by Argonne National Laboratory.
 !      See COPYRIGHT in top-level directory.
@@ -11,7 +11,7 @@
        integer ntype1, ntype2, errs, ierr
 
        errs = 0
-       
+
        call MTest_Init( ierr )
 
        call mpi_type_vector( 10, 1, 100, MPI_INTEGER, ntype1, ierr )
           errs = errs + 1
           print *, ' (type2) Datatype name is not all blank'
        endif
-       
+
        call mpi_type_free( ntype1, ierr )
        call mpi_type_free( ntype2, ierr )
-       
+
        call MTest_Finalize( errs )
        call MPI_Finalize( ierr )