17aaa936aSBarry Smith! 27aaa936aSBarry Smith! Test for bug with ISGetIndicesF90() when length of indices is 0 37aaa936aSBarry Smith! 47aaa936aSBarry Smith! Contributed by: Jakub Fabian 57aaa936aSBarry Smith! 67aaa936aSBarry Smithprogram main 77aaa936aSBarry Smith#include <petsc/finclude/petscis.h> 87aaa936aSBarry Smith use petscis 97aaa936aSBarry Smith implicit none 107aaa936aSBarry Smith 117aaa936aSBarry Smith PetscErrorCode ierr 127aaa936aSBarry Smith PetscInt n, bs 137aaa936aSBarry Smith PetscInt, pointer :: indices(:)=>NULL() 147aaa936aSBarry Smith PetscInt, pointer :: idx(:)=>NULL() 157aaa936aSBarry Smith IS is 167aaa936aSBarry Smith 177aaa936aSBarry Smith n = 0 187aaa936aSBarry Smith allocate(indices(n), source=n) 197aaa936aSBarry Smith 20*d8606c27SBarry Smith PetscCallA(PetscInitialize(ierr)) 217aaa936aSBarry Smith 22*d8606c27SBarry Smith PetscCallA(ISCreateGeneral(PETSC_COMM_SELF,n,indices,PETSC_USE_POINTER,is,ierr)) 23*d8606c27SBarry Smith PetscCallA(ISGetIndicesF90(is,idx,ierr)) 24*d8606c27SBarry Smith PetscCallA(ISRestoreIndicesF90(is,idx,ierr)) 25*d8606c27SBarry Smith PetscCallA(ISDestroy(is,ierr)) 267aaa936aSBarry Smith 277aaa936aSBarry Smith bs = 2 28*d8606c27SBarry Smith PetscCallA(ISCreateBlock(PETSC_COMM_SELF,bs,n,indices,PETSC_USE_POINTER,is,ierr)) 29*d8606c27SBarry Smith PetscCallA(ISGetIndicesF90(is,idx,ierr)) 30*d8606c27SBarry Smith PetscCallA(ISRestoreIndicesF90(is,idx,ierr)) 31*d8606c27SBarry Smith PetscCallA(ISDestroy(is,ierr)) 32*d8606c27SBarry Smith PetscCallA(PetscFinalize(ierr)) 337aaa936aSBarry Smithend 347aaa936aSBarry Smith 357aaa936aSBarry Smith!/*TEST 367aaa936aSBarry Smith! 377aaa936aSBarry Smith! test: 387aaa936aSBarry Smith! 397aaa936aSBarry Smith!TEST*/ 40