Compiler bug: random_number() does not accept pointer, intent(in) argument

Intel® Fortran Compiler

Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.

Compiler bug: random_number() does not accept pointer, intent(in) argument

338 Views

Based on the discussion on Fortran-discourse, I think, the following code is standard conforming, but the Intel compiler (ifort (IFORT) 2021.1 Beta 20201112) refuses to compile it.

module m
contains
   subroutine s1(a)
      real, pointer, intent(in) :: a
      call s2(a)            !<-- Ok with Intel
      call random_number(a) !<-- but not this
   end subroutine 
   subroutine s2(x)
      real, intent(out) :: x
      call random_number(x)
   end subroutine 
end module

ifort -c ~/bug3.f90 
/home/aradi/bug3.f90(6): error #7912: An explicit INTENT(OUT) declaration is expected for this dummy argument.   [RANDOM_NUMBER]
      call random_number(a) !<-- but not this
-------------------------^
compilation aborted for /home/aradi/bug3.f90 (code 1)

Link Copied

0 Replies

Community support is provided during standard business hours (Monday to Friday 7AM - 5PM PST). Other contact methods are available here.

Intel does not verify all solutions, including but not limited to any file transfers that may appear in this community. Accordingly, Intel disclaims all express and implied warranties, including without limitation, the implied warranties of merchantability, fitness for a particular purpose, and non-infringement, as well as any warranty arising from course of performance, course of dealing, or usage in trade.

For more complete information about compiler optimizations, see our Optimization Notice.