mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:56:42 +00:00
7871deb821
The soon-to-be-published next revision of the ISO Fortran language standard contains a couple of breaking changes to previous specifications that may cause existing programs to silently change their behavior. For the change that introduces automatic reallocation of deferred length allocatable character scalar variables when they appear as the targets of internal WRITE statements, as IOMSG=/ERRMSG= variables, as outputs of INQUIRE specifiers, or as INTENT(OUT) arguments to intrinsic procedures, this patch adds an optional portability warning. Differential Revision: https://reviews.llvm.org/D154242
23 lines
1.6 KiB
Fortran
23 lines
1.6 KiB
Fortran
! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --allow-empty
|
|
! Verify portability warning on usage that trips over a F202X breaking change
|
|
program main
|
|
character(:), allocatable :: str
|
|
real, allocatable :: x
|
|
allocate(character(10)::str)
|
|
!CHECK: portability: The deferred length allocatable character scalar variable 'str' may be reallocated to a different length under the new Fortran 202X standard semantics for Internal file
|
|
write(str, 1) 3.14159
|
|
1 format(F6.4)
|
|
print 2, str
|
|
2 format('>',a,'<')
|
|
!CHECK: portability: The deferred length allocatable character scalar variable 'str' may be reallocated to a different length under the new Fortran 202X standard semantics for IOMSG=
|
|
open(1,file="/dev/nonexistent",status="old",iomsg=str)
|
|
!CHECK: portability: The deferred length allocatable character scalar variable 'str' may be reallocated to a different length under the new Fortran 202X standard semantics for ENCODING
|
|
inquire(6,encoding=str)
|
|
!CHECK: portability: The deferred length allocatable character scalar variable 'str' may be reallocated to a different length under the new Fortran 202X standard semantics for ERRMSG=
|
|
allocate(x,errmsg=str)
|
|
!CHECK: portability: The deferred length allocatable character scalar variable 'str' may be reallocated to a different length under the new Fortran 202X standard semantics for ERRMSG=
|
|
deallocate(x,errmsg=str)
|
|
!CHECK: portability: The deferred length allocatable character scalar variable 'str' may be reallocated to a different length under the new Fortran 202X standard semantics for dummy argument 'cmdmsg='
|
|
call execute_command_line("true", cmdmsg=str)
|
|
end
|