Changeset 405713


Ignore:
Timestamp:
11/23/12 08:06:50 (17 months ago)
Author:
William Gropp <gropp@…>
Branches:
master
Children:
e2fbf4
Parents:
7f2c84
Message:

[svn-r10660] Correct erroneous assumption about size of Fortran INTEGER; this assumption causes these tests to fail with a valid Fortran program when Fortran INTEGERs are not 4 bytes

Location:
test/mpi/f77/coll
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • test/mpi/f77/coll/nonblocking_inpf.f

    r57350d r405713  
    1010       include 'mpif.h' 
    1111       integer SIZEOFINT 
    12        parameter (SIZEOFINT=4) 
    1312       integer MAX_SIZE 
    1413       parameter (MAX_SIZE=1024) 
     
    2625       call mpi_comm_rank( comm, rank, ierr ) 
    2726       call mpi_comm_size( comm, size, ierr ) 
     27       call mpi_type_size( MPI_INTEGER, SIZEOFINT, ierr ) 
    2828 
    2929       do i=1,MAX_SIZE 
  • test/mpi/f77/coll/vw_inplacef.f

    r1cfd3c r405713  
    1010       include 'mpif.h' 
    1111       integer SIZEOFINT 
    12        parameter (SIZEOFINT=4) 
    1312       integer MAX_SIZE 
    1413       parameter (MAX_SIZE=1024) 
     
    2726       call mpi_comm_rank( comm, rank, ierr ) 
    2827       call mpi_comm_size( comm, size, ierr ) 
     28       call mpi_type_size( MPI_INTEGER, SIZEOFINT, ierr ) 
    2929 
     30       if (size .gt. MAX_SIZE) then 
     31          print *, ' At most ', MAX_SIZE, ' processes allowed' 
     32          call mpi_abort( MPI_COMM_WORLD, 1, ierr ) 
     33       endif 
     34C 
    3035       do i=1,MAX_SIZE 
    3136           rbuf(i) = -1 
Note: See TracChangeset for help on using the changeset viewer.