File: pr93464.f90

package info (click to toggle)

gcc-arm-none-eabi 15%3A12.2.rel1-1

links: PTS, VCS
area: main
in suites: bookworm
size: 959,712 kB
sloc: cpp: 3,275,382; ansic: 2,061,766; ada: 840,956; f90: 208,513; makefile: 76,132; asm: 73,433; xml: 50,448; exp: 34,146; sh: 32,436; objc: 15,637; fortran: 14,012; python: 11,991; pascal: 6,787; awk: 4,779; perl: 3,054; yacc: 338; ml: 285; lex: 201; haskell: 122

file content (23 lines) | stat: -rw-r--r-- 559 bytes

parent folder | download | duplicates (2)

! { dg-additional-options -Wuninitialized }
!
! PR fortran/93464
!
! Contributed by G. Steinmetz
!
! Did before ICE in gfc_omp_check_optional_argument

! Additionally, check for uninitialized warnings.
! Compiled with -O (as done here), no show up;
! for -O0, see testcase file 'pr93464-1.f90'.

program p
   character :: c(2) = 'a'
   character, allocatable :: z(:)
   !$acc parallel
   !$omp target
   ! Remark: As run-time check, required either 'c' being allocated or if(allocated(c)':
   z = c
   !$acc end parallel
   !$omp end target
   print *, z
end