27 lines
752 B
Fortran
27 lines
752 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for PR26976, in which non-compliant elemental
|
|
! intrinsic function results were not detected. At the same
|
|
! time, the means to tests the compliance of TRANSFER with the
|
|
! optional SIZE parameter was added.
|
|
!
|
|
! Contributed by Dominique Dhumieres <dominiq@lps.ens.fr>
|
|
!
|
|
real(4) :: pi, a(2), b(3)
|
|
character(26) :: ch
|
|
|
|
pi = acos(-1.0)
|
|
b = pi
|
|
|
|
a = cos(b) ! { dg-error "Different shape for array assignment" }
|
|
|
|
a = -pi
|
|
b = cos(a) ! { dg-error "Different shape for array assignment" }
|
|
|
|
ch = "abcdefghijklmnopqrstuvwxyz"
|
|
a = transfer (ch, pi, 3) ! { dg-error "Different shape for array assignment" }
|
|
|
|
! This already generated an error
|
|
b = reshape ((/1.0/),(/1/)) ! { dg-error "Different shape for array assignment" }
|
|
|
|
end
|