File: resolve90.f90

package info (click to toggle)
swiftlang 6.0.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,519,992 kB
  • sloc: cpp: 9,107,863; ansic: 2,040,022; asm: 1,135,751; python: 296,500; objc: 82,456; f90: 60,502; lisp: 34,951; pascal: 19,946; sh: 18,133; perl: 7,482; ml: 4,937; javascript: 4,117; makefile: 3,840; awk: 3,535; xml: 914; fortran: 619; cs: 573; ruby: 573
file content (21 lines) | stat: -rw-r--r-- 1,106 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
! RUN: %python %S/test_errors.py %s %flang_fc1
! Testing for pointer constant, along with :
! C751 A component shall not have both the ALLOCATABLE and POINTER attributes.
! C752 If the CONTIGUOUS attribute is specified, the component shall be an 
!   array with the POINTER attribute.
! C753 The * char-length option is permitted only if the component is of type 
!   character.
subroutine s()
  !ERROR: 'nullint' may not have both the POINTER and PARAMETER attributes
  integer, pointer, parameter :: nullint => null()
  type derivedType
    !ERROR: 'pointerallocatablefield' may not have both the POINTER and ALLOCATABLE attributes
    real, pointer, allocatable :: pointerAllocatableField
    real, dimension(:), contiguous, pointer :: goodContigField
    !ERROR: CONTIGUOUS component 'badcontigfield' must be an array with the POINTER attribute
    real, dimension(:), contiguous, allocatable :: badContigField
    character :: charField * 3
    !ERROR: A length specifier cannot be used to declare the non-character entity 'realfield'
    real :: realField * 3
  end type derivedType
end subroutine s