| ! Example from GCC documentation | |
| ! { dg-do compile } | |
| ! { dg-additional-options "-fcray-pointer" } | |
| program test_malloc | |
| implicit none | |
| integer i | |
| real*8 x(*), z | |
| pointer(ptr_x,x) | |
| ptr_x = malloc(20*8) | |
| do i = 1, 20 | |
| x(i) = sqrt(1.0d0 / i) | |
| end do | |
| z = 0 | |
| do i = 1, 20 | |
| z = z + x(i) | |
| print *, z | |
| end do | |
| call free(ptr_x) | |
| end program test_malloc |