num_images_1.f90 « gfortran.dg « testsuite « gcc - gcc.git - Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

index : gcc.git

Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/num_images_1.f90

blob: b5547f60cad8f336ed558809f115dae96e40d46f (plain)

! { dg-do compile }
! { dg-options "-fcoarray=single -std=f2008" }
! PR  Fortran/80768
!
program foo
   implicit none
   integer k5
   k5 = num_images(failed=.false.) ! { dg-error "argument to NUM_IMAGES" }
   print *, k5
end program foo