62 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program main3 implicit none4 integer :: i = -15 integer, pointer :: p_i6 integer(kind = 1) :: invalid = 07 integer, dimension(1:100) :: iarray8 integer, dimension(:), pointer :: p_iarray9 integer, allocatable, dimension(:) :: aiarray10 logical :: l = .false.11 logical, dimension(1:100) :: larray12 logical, allocatable, dimension(:) :: alarray13 character(len = 128) :: chr114 character(kind = 4, len = 128) :: chr215 16 if (i .eq. 0) stop "Stop."17 if (i .eq. 0) stop "Stop."(1:4)18 if (i .eq. 0) stop chr119!ERROR: CHARACTER stop code must be of default kind20 if (i .eq. 0) stop chr221 if (i .eq. 0) stop 122 if (i .eq. 0) stop 1 + 223 if (i .eq. 0) stop i24 if (i .eq. 0) stop p_i25 if (i .eq. 0) stop p_iarray(1)26 if (i .eq. 0) stop iarray(1)27 if (i .eq. 0) stop aiarray(1)28 if (i .eq. 0) stop 1 + i29!ERROR: INTEGER stop code must be of default kind30 if (i .eq. 0) stop invalid31!ERROR: Stop code must be of INTEGER or CHARACTER type32 if (i .eq. 0) stop 12.3433 if (i .eq. 0) stop 1, quiet = .true.34 if (i .eq. 0) stop 2, quiet = .false.35 if (i .eq. 0) stop 3, quiet = l36 if (i .eq. 0) stop 3, quiet = .not. l37 if (i .eq. 0) stop 3, quiet = larray(1)38 if (i .eq. 0) stop , quiet = .false.39 if (i .eq. 0) error stop "Error."40 if (i .eq. 0) error stop chr141!ERROR: CHARACTER stop code must be of default kind42 if (i .eq. 0) error stop chr243 if (i .eq. 0) error stop 144 if (i .eq. 0) error stop i45 if (i .eq. 0) error stop p_i46 if (i .eq. 0) error stop p_iarray(1)47 if (i .eq. 0) error stop iarray(1)48 if (i .eq. 0) error stop aiarray(1)49 if (i .eq. 0) error stop 1 + i50!ERROR: INTEGER stop code must be of default kind51 if (i .eq. 0) error stop invalid52!ERROR: Stop code must be of INTEGER or CHARACTER type53 if (i .eq. 0) error stop 12.3454 if (i .eq. 0) error stop 1, quiet = .true.55 if (i .eq. 0) error stop 2, quiet = .false.56 if (i .eq. 0) error stop 3, quiet = l57 if (i .eq. 0) error stop 3, quiet = .not. l58 if (i .eq. 0) error stop 3, quiet = larray(1)59 if (i .eq. 0) error stop , quiet = .false.60 stop61end program62