ParallelIO

        call mpi_barrier(mpi_comm_world,ierr)

        ! netcdf-specific tests

        if (is_netcdf(iotypes(test_id))) then

​

           if (master_task) write(*,"(3x,A,1x)", advance="no") "testing PIO_redef..."

           call test_redef(test_id, err_msg)

           call parse(err_msg, fail_cnt)

​

           if (master_task) write(*,"(3x,A,1x)", advance="no") "testing PIO_enddef..."

           call test_enddef(test_id, err_msg)

           call parse(err_msg, fail_cnt)

​

           if (master_task) write(*,"(3x,A,1x)", advance="no") "testing PIO netCDF-4 functions..."

           call test_nc4(test_id, err_msg)

           call parse(err_msg, fail_cnt)

        end if

​

​

        if (master_task) write(*,*) ""

​

     end if ! ltest(test_id)

​

  end do

​