Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Add new entry in Release_Notes.
[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / datatype / typesnamef.f
index b958c49..48df213 100644 (file)
@@ -1,4 +1,4 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2003 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
@@ -11,7 +11,7 @@ C
        integer ntype1, ntype2, errs, ierr
 
        errs = 0
-       
+
        call MTest_Init( ierr )
 
        call mpi_type_vector( 10, 1, 100, MPI_INTEGER, ntype1, ierr )
@@ -57,10 +57,10 @@ C now add a name, then dup
           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 )