array_temporary-1.f90\coarray\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/coarray/array_temporary-1.f90

blob: 454929cf53baf0ca321c1a35b0630dbcf8b2b38b (plain)

! PR fortran/99010
!
! Follow-up to PR fortran/98913
!
! Contributed by G. Steinmetz
!
program p
   integer :: x[*]
   x = this_image()
   if ( this_image() == 2 ) then
      x = x[1]
   end if
end